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VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 


; AUTHOR: 
; C. FRANKS 05-OCT-1979 
; MODIFIED BY: 


v03-008 WHM0001 Bill Matthews 15-May-1984 
Added MicroVAX 1/QBUS support. 

v03-007 RASO300 Ron Schaefer Lia, ah 
Add DEVSM_NNM characteristic to DECHAR2 so that these 


devices will have the ‘‘node$"' prefix. 


v03-006 PRDOO33 aul R. DeStefano 09-Sep-1983 
Added EXESLCLDSKVALID to function decision table. 


v03-005 Sousers 
to *U BSK_LCL_DISK_LENGTH. 


v03-004 KDM0059 Kathleen D. Morse 14-Jul-1983 
Change time-wait loops to use new TIMEDWAIT macro. 


v03-003 PRDO020 aul R, DeStefano s6ehor=1983 


Modified FATALERR *rout ine to return SS$_PARITY only for 
errors that possibly indicate bad media. All other error 
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conditions whic’ ‘ormerly returned SS$_PARITY now return 
SSS_CNTLERR. 


v03-002 coneees 
Added SDYNDEF. 


v03-001 KTA0100 erbey T. Altmann 07-Jun-1982 
Add code to set UeBSL "MEDIA. ID. 


Kathleen D. Morse 28-Jun-1982 
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; ABSTRACT: 

THIS MODULE CONTAINS THE TABLES AND ROUTINES NECESSARY TO 
PERFORM ALL on te PROCESSING OF AN 1/0 REQUEST 
FOR RL11/RLO1,RLO2 DISK TYPES ON A VAX/VMS SYSTEM. 

THE DISKS HAVE THE FOLLOWING PHYSICAL GEOMETRY: 


TRACKS/ SECTORS/ BYTES/ 
# CYL CYLINDER TRACK SECTOR 


mg i ime a 
{ GI 


oO 


SINCE THE SECTO BLOCK, LOGICAL TO P 
CONVERSION OF T DONE IN THE DRIVER 
ROUTINE RATHER TLOGPHY FDT ROUTINE. 


ECAUSE THE DEVICE DOES 
SEEK. 


xm 


OVERLAPPED SEEK 
NOT INTERRUPT 
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FUNCTION AND A 
HEADER) IS ISSUE 
THE IO$SX_INHSEEK FUNCTION moe 


THIS DRIVER, SINCE AN EXPLIC 
TO TRANSFER DATA PROPERLY. 


THE RL'S DO NOT READ OR WRITE BEYOND THE END OF TRACK (THEY DO NOT 
AUTOMATICALLY SEEK THE NEXT TRACK), SO ALL READ AND WRITE FUNCTIONS 
ARE BROKEN UP BY THIS DRIVER INTO PARTIAL TRANSFERS TO THE END OF 
TRACK, FOLLOWED BY A SEEK TO THE NEXT TRACK, THEN ANOTHER READ OR 
WRITE FUNCTION UNTIL THE TOTAL DATA TRANSFER IS COMPLETE. 
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R IS TREATED AS A NO-OP BY 
EK IS NECESSARY FOR THE RLO2 
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> EXTERNAL SYMBOLS 


SADPDEF DEFINE ADAPTER CONTROL BLOCK 
SCRBDEF DEFINE CHANNEL REQUEST BLOCK 
SOCDEF sDEFINE DEVICE CLASS 

SODBDEF DEFINE DEVICE DATA BLOCK 
SOEVDEF DEFINE DEVICE CHARACTERISTICS 
SOPTDEF DEFINE DRIVER PROLOGUE TABLE 
SOYNDEF DEFINE DYNAMIC DATA STRUCTURE TYPES 
SEMBDEF sDEFINE ERROR MESSAGE BUFFER 
SIOBOEF sDEFINE INTERRUPT DATA BLOCK 
SIODEF DEFINE 1/0 FUNCTION CODES 
SIRPDEF DEFINE 1/0 REQUEST PACKET 
SPROEF DEFINE PROCESSOR REGISTERS 
SPTEDEF DEFINE SYSTEM PTES 

SSSDEF DEFINE SYSTEM STATUS CODES 
SUCBDEF DEFINE UNIT CONTROL BLOCK 
SVADEF DEFINE VIRTUAL ADDRESS BIT 
SVECDEF DEFINE INTERRUPT VECTOR BLOCK 
MACROS 


EXFUNCL 
BRANCH TO SUBROUTINE WHICH REQUESTS CHANNEL (IF NOT ALREADY OWNED), 
EXECUTES FCODE (OR R3) FUNCTION, AND BRANCHES TO BDST ON ERROR 


MACRO EXFUNCL BDST,FCODE 
IF NB 


D 1S FCODE NON-BLANK? 
MOVZBL #CD'FCODE,R3 :1F NB - SPECIFY FCODE FUNCTION 
-ENDC c1F_ B = SPECIFY FNIN IN EXISTING R3 
BSBW FEXL EXECUTE FUNCTION 
-BYTE 8DST-.-1 WHERE TO GO IF ERROR 


GENF 
GENERATE FUNCTION TABLE ENTRY AND CASE TABLE INDEX SYMBOL 


.MACRO GENF FCODE 
CD'FCODE=.-F TAB/2 
cupm WORD FCODE!RL_CS_M_IE :FCODE WITH INT ENABLE BIT 


CKPWR 

DISABLE INTERRUPTS, CHECK IF POWER HAS FAILED, 

AND PUT DEVICE UNIf NUMBER IN R2<9:8> 

.MACRO CKPWR ?L1 
CLRL —_ RR ZCLEAR R2 FOR UNIT NUMBER 
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INSV es eed PUT UNIT # IN R2<9:8> 


17 
17 #2,R2 gece 
17 DSBINT :DISABLE INTERRUPTS 
17 BBC MUCBSV_POWER,- ;IF CLR - NO POWER FAILURE 
17% UCBSW_STS(R55,L1 ;... 
175 ENBINT ;POWER FAILURE - ENABLE INTERRUPTS 
1% BRW RETREG SEXIT 
177 1: SRETURN FOR NO POWER FAILURE 
178 .ENDM 
17 
18 
! § 3; LOCAL SYMBOLS 
184 ° 
90000004 185 RL_NUM_REGS =4 ZNUMBER OF DEVICE REGISTERS 
0000005 1 6 RL sun sf SSTATE=SEEK LINEAR MODE (READY TO GO) 
000000¢9 UCB$B_DL_DCHEK =UCBSW_OFFSET+1 SREDEFINE FOR DATA CHECK USE 
189 ; 
139 3; UCB OFFSETS WHICH FOLLOW THE STANDARD UCB FIELDS 
19¢ SDEFINI UCB ZSTART OF UCB DEFINITIONS 
000000c¢ 194 .=UCBS$K_LCL_DISK_LENGTH ZBEGIN DEFINITIONS AT END OF UCB 
195 $DEF UCBSW_DL_PBCR .BLKW 1 ;PARTIAL BYTE COUNT 
196 SDEF  UCBSWDL“CS *BLKW oT [CONTROL STATUS REGISTER 
197 SDEF  UCBSW"DL"BA “BLKW [BUS ADDRESS REGISTER 
198 SDEF § UCBSW"DL“DA “BLKW [DISK ADDRESS REGISTER 
199 $SDEF § UCBSW"DL-MP “BLKW So] SMULTIPURPOSE REGISTER 
99 SDEF $W"DL- “BLKW SDATA PATH ER 
1 $SDEF § UCBSL“DL“SVAPTE SSAVED SVAPTE OF THE USER'S BUFFER 
: SDEF  UCBSL“0L~ -BLKL 1 SDATAPATH REGISTER 
SDEF § UCBSL“DL“BUFADR SUSER BUFFER ADDRESS 
4 $DEF  UCBSL“DL- -BLKL 1 [FINAL MAP REGISTER 
5 SDEF CBSA_DL-MOVRTN ‘BUFFER MOVE ROUTINE ADDRESS 
$ SDEF  UCBSL"DL“PMPR .BLKL 1 ‘PREVIOUS MAP REGISTER 
SDEF  UCBSB"DL“DPPE .BLKB 1 SDATAPATH PURGE ERROR 
8 SDEF  UCB$W"DL"DB BLKW ; [DATA BUFFER REGISTER 
SDEF CBSB"DL"-XBA =. BLK [BUS ADDRESS EXTENSION BITS 
10 SDEF CBSW"DL"S BLKw 1 SSAVED BUFFER ADDRESS 
11 $DEF § UCBSATDL“BUF_VA .BLKL 1 [PHYSICAL BUFFER VIRTUAL ADDRESS 
1 SDEF BSA~DL—BUF ‘BLKL 1 [PHYSICAL BUFFER PHYSICAL ADDRESS 
13 SDEF ycesu DL“FLAGS .B 1 SFLAGS 
14 L6 0CB,0.<- [START THE FLAG DEFINITIONS 
15 <DL2eB1T, .M>,- [22 BIT ADDRESSING 
1 <DL“MAPPING, ,M>,- TADAPTER MAPPING 
1 > [END OF FLAG DEFINITIONS 
18 SDEF  UCBSK_DL_LEN BLKw 1 SLENGTH OF UCB 
19 $EQU -UCBSK“DL“BUFSZ 20 BUFFER SIZE = 40 SECTORS . 
0 2256 BYTES/SECTOR / 512 BYTES/PAGE 
SDEFEND UCB SEND OF UCB DEF INITONS 
4 + RL11/RLO1 REGISTER OFFSETS FROM CSR ADDRESS 
6 SDEFINI RL : START OF REGISTER DEFINITIONS 
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RNAL AND bEFINITI 


LOCAL ONS 
7 
§ SDEF RL_C -BLKW 
RUreLD RL_CS,0,<= 
<DRDY, . A>, = 


SDEF RL_BA -BLKW 
SDEF 7 DA -BLKW 


SDEF RL_MP -BLKW 
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<SkT0, MS, = 

3 <WL,,M>.- 

6 <CHE. .M>,= 
<WOE, ,M>- 

7 > 

73 SDEF —-RL_BAE -BLKW 

5 SDEFEND RL 
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;CONTROL STATUS REGISTER (CSR) 

sSTART OF CSR BIT DEFINITIONS 

8 DRIVE READY 

3 FUNCTION CODE 

; BUS ADDRESS EXTENSION BITS 

3; INTERRUPT ENABLE 

; be tye ttce READY 

3; DRIVE SELECT 

3; OPERATION INCOMPLET 

; DATA CRC OR HEADER 

3; DATA Laie OR ae NOT FOUND 

: NON-EXISTENT M 

; DRIVE i 

: COMPOSIT 


SITE ERROR 

;END CSR BIT DEFINITIONS 

BUS ADDRESS REGISTER (BAR) 
Ht be ADDRESS REGISTER (DAR) 
sSTA RT OF D oe BIT DEFINITIONS 

; MARK ae YS 1) 

T STATU 
; RESERVED BIT 
RESET 


: RESERVED BITS 
SEND OF DAR BIT DEFINITIONS 


sMULTIPURPOSE REGISTER (MPR) 
ao eeive's TATE BIT DEFINITIONS 


PTTeTETECLOCISTS OES TETETET 
<> 
<omon 

a gees 


N 
K 
TE LOCK 
o 
sEND MPR BIT DEFINITIONS 


; BUS ADDRESS EXTENSION REGISTER(BAE) 
sEND RL11/RLO1 REGISTER DEFINITIONS 


<o | 


— 
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/VMS RL11/RL01 SK DRIVER? 
L AND LOCAL oer eartt 


ONS 
: F LDRVCLR=2e2 
F -RELEASE® =F NOP 
§ PaDEr oct se F Nop 
F-RETC NTER=F. NOP 
} F-PACKACK=2e2 
pASEARCHEE NOP 
9 FTWRITECHECK=1¢2 
URI TEDATASS #2 
3 F-WRITEHEAD=F NOP 
93 F-READDATA=6* 
94 F-READHEAD=4* 
95 FAAVAILABLE® =f NOP 
36 F-GETSTATUS=2%2 


414 9 VAX/VMS Macro v04-00 Page 7 
2:24 DRIVER. SRCIDLDRIVER. MAR; 1 (1) 


DRIVE CLEAR (GET STATUS) 

:NO OPERATION 

NO OPERATION 

3NO OPERATION 

i PACK oar (SET VOLUME VALID) 


ATION 
'GET STATUS (DRIVER INTERNAL USE) 
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STANDARD TABLES 


DRIVER PROLOGUE 


DPT _STORE 
DPT" STORE 
DPT"STORE 
DPT-STOR 
DPT"STORE 


DPT ~STORE 


Sooooooooooooo 
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DPT = STORE 


DPT_STORE 
DPT" STORE 
DPT"STORE 
DPT_STORE 
DPT_STORE 


DPT_STORE 
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: DRIVER DISPATCH 


CALLED BY 
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: THE DDT LISTS ENTRY PO 
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~SBTTL STANDARD TABLES 


TABLE 


THE DPT DESCRIBES DR IVER PARAMETERS AND 1/0 DATABASE FIELDS 
THAT ARE TO BE INITIALIZED DURING DRIVER LOADING AND RELOADING 
DPTAB. = :DPT CREATION MACRO 
END= DL gEND END OF DRIVER LABEL 
ADAPT “UBA.= - ADAPT ER TYPE = UNIBUS 
Pe apscoetta SYSTEM PAGE TABLE Tou RY REQUIRED 
uc tasizecucesk vot “LEN, - :LEN GTH OF UCB 
NAME=DLORIVER™ [DRIVER NAME 


INIT START CONTROL BLOCK INIT VALUES 
DDB.DDBSL_ACPD.L.<*A\FI1\> ; DEFAULT ACP NAME 
DDB. DDBSL ~AceD+3 +B, DDBSK KACART SACP C 


€ UCB,UCBSB_FIP 


E uCe UCBs. bEVCHaR. L.- :DEVICE CHARACTERISTICS 


: FILES ORI 
EVER-DIR= : DIRECTORY STRUCTURED 
'DEVSM_AVL= ; AVAIL 
iDEVSM~ELG : ERROR LOGGING 
i DEVSMSHR- : SHAREABLE 
i DEVSM~IDV- : INPUT DEVICE 
: ouTPUT DEVICE 
i DEVSM-RND> ; RANDOM ACCESS 
UCB OCBSL_DEVCHAR2,L,~; DEVICE CHARACTERISTICS. |, 
VSM_NNM> PREFIX NAME WITH ‘‘node$' 
ucB,OCB$B -PEVCLASS ptt DISK ;DEVICE CLASS 
UCB.UCB$W-DEVB 12 sDEFAULT BUFFER SIZE 
UCB,UCB$B_SECT NUMBER OF SECTORS PER TRACK 
se ae 3*6 :NUMBER OF TRACKS PER CYLINDER 
UCB.UCB$B_DIPL,B.21 :DEV VICE IPL 
UCB,UCBSB_ERTMAX,8,8 X ERROR” RETRY COUNT 
UCB, UCB$W~DEVSTS,W,- ONMIBI LOG TO PHYS CONVERSION IN FDT 
<UCBSM_NOCNURT> Rens 
REINIT >START CONTROL BLOCK RE-INIT VALUES 
CRB,CRBSL_INTD+4,D,DL_INT ; INTERRUPT SERVICE ROUTINE ADDRESS 
CRB.CRBSL-INTD+VECSL_INITIAL,= ;CONTROLLER INIT ADDRESS 
D DL RL11_INIT ~~ 
CRB,CRBSC_INTBO+VECSL_UNITINIT,- :UNIT INIT ADDRESS 
D,DL_RLOX_INIT be ail 
DDB, DOBSC_DDT7D,DLSDDT [DDT ADDRESS 
END ZEND OF INITIALIZATION TABLE 
TABLE 
INTS FOR DRIVER SUBROUTINES WHICH ARE 
THE OPERATING SYSTEM. 
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: DDTAB :DDT CREATION MACRO 
DEVN [NAME OF DEVICE 
: Sante “STARTIO,< ‘START 1/0 ROUTINE 
FUNCTBSDL FUN UNSOLN ;UNS LICITED INTERRUPT 
6 FUNCTB ABLE, SFUNCTION DECISION TABLE 
6 CANCEL i CANCEL 2NO=OP FOR FILES DEVICE 
6 REGDMP=DL_REGDUMP, - REGISTER DUMP ROUTINE 
6 DIAGBF=<<RL_NUM_REGS*5*5%391>94>,-  :BYTES IN DIAG BUFFER 
64 ERLGBE=<ccRE NUM NUM_REGS#541>"4>+EMBSL_DV_REGSAV> ;BYTES IN 
$9 SERROR LOG BUFFER 
$$ ; DIAGNOSTIC BUFFER SIZE = <<é4 RL 8 REGISTER LONGWORDS + 5 UCB FIELD LONGWORDS 
68 ; + § IOCSDIAGBUFILL LONGWORDS + 3 BUFFER ALLOCATION 
$ ; LONGWORDS + 1 LONGWORD FOR # REGISTERS IN" BL _REGDUMP> 
8 oy ; 4 BYTES/LONGWORD> 
0 re : ERROR LOG BUFFER SIZE = <<<é RLO2 REGISTER LONGWORDS + 5 UCB FIELD , LONGWORDS 
0 73: + 1 LONGWORD FOR # REGISTERS IN DL_REGDUMP> 
74: * 4 BYTES/LONGWORD> + BYTES NEEDED FOR ERROR LOGGER 
0 £3 ; TO SAVE SOFTWARE REGISTERS> 
0 7 
0 8 3 
0 29 t HARDWARE FUNCTION CODE TABLE 
0 1; THIS TABLE MERGES THE FUNCTION CODE BITS WITH THE 
0 § 3 INTERRUPT ENABLE BIT AND GENERATES THE CASE TABLE 
4 : 3 INDEX SYMBOL. 
0 5 FTAB:  GENF _NOP ;NO-OP 
O3A GENF — F “UNLOAD i UNLOAD VOLUME (NOP) 
03¢ GENF = F“SEEK 
0 a GENF = FRECAL REGAL IBRATE (NOP) 
04 9 GENF = F-DRVCLR DRIVE CLEAR (RESET & GET STATUS) 
04 0 GENF  F-RELEASE SRELEASE PORT (NOP) 
44 391 GENF  F-OFFSET OFFSET HEADS (NOP) 
46 9 GENF  F-RETCENTER SRETURN HEADS TO CENTERLINE (NOP) 
4 9 GENF  FPACKACK [PACK ACKNOWLEDGE (RESET & GET” STATUS) 
6A 394 GENF - F~SEARC [SEARCH (NOP) 
4C 395 GENF = F“WRITECHECK SWRITE CHECK 
04 9 GENF F-WRITEDAT [WRITE DATA 
05 9 GENF = F“READDATA TREAD DATA 
05 98 GENF FTWRITEHEAD TWRITE HEADERS (NOP) 
34 9 GENF  F“READHEAD TREAD HEADERS 
§ 400 GENF F _NOP iplace holder 
5 401 GENF F _NOP lace holder 
OSA 4 ; GENF  F~AVAILABLE SAVAILABLE 
05c 4 
| 
| 


Dee 
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raat STANDARD TABLES : SEP 138 88 12 $2 DRIVER. SRCIOLDRIVER.MAR; 1 ” a 
¢ 405; 
¢ é $ : FUNCTION DECISION TABLE 
a 8 : THE FDT LISTS VALID FUNCTION CODES, SPECIFIES WHICH 
€ 409: CODES ARE BUFFERED, AND DESIGNATES SUBROUTINES TO 
€ 410: PERFORM PREPROCESSING FOR PARTICULAR FUNCTIONS. 
tb: 
¢ £18 DL_FUNCTABLE: 
C 41% FUNCTAB ,= :LIST LEGAL FUNCTIONS 
5¢ 415 <NOP, = : NO=OP 
3¢ 416 UNLOAD, = + UNLOAD 
2g SEEK,= + SEEK 
9o¢ 418 DRVCLR,= : DRIVE CLEAR 
| ie) PACKACK,= : PACK ACKNOWLEDGE 
5¢ 420 SENSE CHAR, = : SENSE CHARACTERISTICS 
05€ 421 SETCHAR,= : SET CHARACTERISTICS 
05¢ 4 : SENSEMODE ,- : SENSE MODE 
05¢ 4 SE TMODE , = : SET MODE 
05C 424 WRITECHECK,- + WRITE CHECK 
5¢ 425 READHEAD, = + READ HEADER 
sc : READLBLK,= : READ LOGICAL BLOCK 
005¢ 4 WRITELBL : WRITE LOGICAL BLOCK 
05€ 428 READPBLK,- + READ PHYSICAL BLOCK 
005¢ 429 WRITEPBLK,= : WRITE PHYSICAL BLOCK 
005¢ 430 EADVBLK,- : READ VIRTUAL BLOCK 
05¢ 431 WRITEVBLK,= : WRITE VIRTUAL BLOCK 
005¢ 4 é AVAILABLE. = + AVAILABLE 
005¢ 4 ACCESS, = : ACCESS FILE / FIND DIRECTORY ENTRY 
05C 434 ACPCONTROL, = + ACP CONTROL F 
05¢ 435 CREATE,= : CREATE FILE AND/OR DIRECTORY ENTRY 
05¢ 4 6 DEACCESS,= t DEACCESS FILE 
) ae DELETE,- : DELETE FILE AND/OR DIRECTORY ENTRY 
9o¢ 438 MODIFY. = : MODIFY FILE ATTRIBUTES 
05 439 ‘ NT- : MOUNT VOLUME 
064 441 FUNCTAB ,- ;BUFFERED FUNCTIONS 
44g <NOP,- : NO-OP 
44 UNLOAD, = + UNLOAD 
44s SEEK,= : SEEK 
445 DRVCLR,- : DRIVE CLEAR 
44 PACKACK,= + PACK ACKNOWLEDGE 
44 SENSECHAR, = : SENSE CHARACTERISTICS 
44 SETCHAR, = : SET CHARACTERISTICS 
46 SENSEMODE , - : SENSE MOD 
4 : SE TMODE ,- : SET MODE 
4 AVAILABLE, = > AVAILABLE 
4 ; ACCESS, = > ACCESS FILE / FIND DIRECTORY ENTRY 
43 ACPCONTROL,- + ACP CONTROL FUNCTION 
454 CREATE,= t CREATE FILE AND/OR DIRECTORY ENTRY 
438 DEACCESS,- : DEACCESS FILE 
4 6 DELETE,- : DELETE FILE AND/OR DIRECTORY ENTRY 
45 MODIFY.= : MODIFY FILE ATTRIBUTES 
438 MOUNT + MOUNT VOLUME 
460 FUNCTAB DL_ALIGN,- TEST ALIGNMENT FUNCTIONS 
461 <READHEAD, = > READ HEADER 
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6C 46 READLBLK,= ; READ LOGICAL BLOCK 
eet READPBLK.= + READ PHYSICAL BLOCK 
C 664 READVBLK.= + READ VIRTUAL BLOCK 
C 4665 WRITECHECK,~ > WRITE CHECK 
6C 46 WRITELBLK,- : WRITE LOGICAL BLOC 
6C 46 WRITEPBLK.= : WRITE PHYSICAL BLOCK 
6C 468 WRITEVBLK= + WRITE VIRTUAL BLOC 
§ £3 FUNCTAB +ACPSREADBLK, = ;READ FUNCTIONS 
78 471 <READHEAD, = : READ HEADER 
? 47 READLBLK,- + READ LOGICAL BLOCK 
78 O47 READPBLK.= + READ PHYSICAL BLOCK 
07 474 READVBLK= : READ VIRTUAL BLOCK 
084 476 FUNCTAB #ACPS$WRITEBLK,- sWRITE FUNCTIONS 
084 47 <WRITECHECK, = : WRITE CHECK 
084 478 WRITELBLK,= t WRITE LOGICAL BLOC 
084 47 WRITEPBLK.= : WRITE PHYSICAL BLOCK 
0 4 4 0 WRI TEVBLK= t WRITE VIRTUAL BLOCK 
090 4 g FUNCTAB *ACPSACCESS,- yACCESS FUNCTIONS 
090 4 <ACCESS,= : ACCEESS FILE / FIND DIRECTORY ENTRY 
090 4 4 CREATE= : CREATE FILE AND/OR DIRECTORY ENTRY 
bose 4 : FUNCTAB +ACPSDEACCESS,- sDEACCESS FUNCTION 
909¢ é f <DEACCESS= : DEACCESS FILE 
OA tbs FUNCTAB +ACPSMODIFY,- sMODIFY FUNCTIONS 
OA8 490 <ACPCONTROL .= : ACP CONTROL FUNCT 
OA8 491 DELETE,- : DELETE FILE AND/OR DIRECTORY ENTRY 
OA 49 MOD IF Y= : MODIFY FILE ATTRIBU 
0B4 494 FUNCTAB *ACPSHOUNT, - ;MOUNT FUNCTION 
084 499 <MOUNT : MOUNT VOLUME 
0cO 49 FUNCTAB *EXESLCLOSKVALD, SLOCAL DISK VALID FUNCTIONS 
0C0 49 SUNLOA p VOLUME 
0CO 49 “AVAILABLE, - [UNIT AVAILABLE 
00 PAC [PACK ACKNOWLEDGE 
occ 0¢ FUNCTAB *EXESZEROPARN, ~ ZERO PARAMETER FUNCTIONS 
OCC 4 ocak. = + UNLOAD 
aa 5 DRVCLR.= : DRIV VE CLEAR 
CC : PACKACK, = t PACK ACKNOWLEDGE 
c¢ AVAILABLE ,~ t AVAILABLE 
0 } FUNCTAB cEXESONEPARM, - SONE PARAMETER FUNCTION 
p 10 <SEEK= ; SEEK 
£4 I FUNCTAB +EXESSENSEMODE , - :SENSE FUNCTIONS 
6 51 <SENSECHAR, = : SENSE CHARACTERISTICS 
E4 1% : E- : SENSE MODE 
F 1g FUNCTAB *EXESSETCHAR, = :SET FUNCTIONS 
F 1 <SETCHAR, = : SET CHARACTERISTICS 
F 18 TMODE = : SEY MODE 
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~SBTTL CONTROLLER INITIALIZATION ROUTINE 


oa 
o 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS A NO-OP FOR hy | RL11 BUT MUST BE INC 
SINCE IT IS CALLED WHEN THE RLO2 IS BOOTED AS A SYST 


THE orenay ie SYSTEM CALLS THIS ROUTINE: 
T SYSTEM RTUP 
- DURING DRIVER LOADING 
RECOVERY FROM POWER FAILURE 


LUDE 
EM D 


= DURING 
INPUTS: 
RG = CSR ADDRESS (DEVICE CONTROL A REGISTER) 
RS - IDB ADDRESS (INTERRUPT we 
R = DOB ADDRESS (DEVICE DATA BL ork) 
R = CRB ADDRESS (CHANNEL REQUEST BLOCK) 
ALL INTERRUPTS ARE LOCKED OUT 
OUTPUTS: 


ALL REGISTERS EXCEPT RO-R3 ARE PRESERVED. 
CONTROL IS RETURNED TO THE CALLER. 


Be Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se He Ge Se Se Ge Ge Se Ge Ge 
t 
8 


DL_RL11_INIT: CONTROLLER INITIALIZATION 


t FOR MICROVAX I, ALLOCATE A PHYSICALLY CONTIGUOUS BUFFER 
; AREA FOR PERFORMING I/O. 


éPuDISP <<790, 0$>,- 


NOUS WN OOO Ny *§ * FAN 0 OD NO MEW 2 0 OO NO ME OOOO UNE Ut 


~~ 
ODP FEF BD RI FHEHEM AAPA AAOOOOAAAOAAAAAIOOIOIOAOOODOOAIAAAAAAAMAAOIE 


NA AAAAAAA AAI NIM BE BBP LLL LE 


$>,- 
Ab 
<750,20$>,- 
<7 0$>,- 
<uv1, 10$>> ;FOR MICROVAX I, ALLOCATE BUFFER AREA 
FOR ALL OTHERS, SKIP BUFFER AREA 
51 4 3X 10$: MOVZWL #UCBSK_DL_BUFSZ,R LOAD SIZE OF BUFFER 
oo aa? 8 te G*EX Sar bpaveare : eputocerr PHYSICALLY-CONTIGUOUS MEMORY 
10 as 3 b0 MOVL BE * CRBSL_AUXSTRUC (RB) GET BUFFER VIRTUAL ADDRESS 
05 RSB SRETURN TO CALLER 
10 AB 4 208: CLRL CRBSL_AUXSTRUC (RB) s INDICATE MEMORY ALLOCATION FAILURE 
05 0 RSB sRETURN TO CALLER 


et EE RCL S , Focre aes Dehua Rae anne 
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DL_RLOX_INIT = UNIT INITIALIZATION ROUTINE 
; FUNCTIONAL DESCRIPTION: 
THIS ROUTINE READIES THE RLO1/RLO2 UNITS FOR 1/0 OPERATIONS. 
THE OPERATING SYSTEM CALLS THIS ROUTINE: 
= AT SYSTEM STARTUP 


- DURING DRIVER LOADING 
= DURING RECOVERY FROM POWER FAILURE 


: INPUTS: 


RG - CSR ADDRESS Saag TROLLER STATUS REGISTER) 
RS - UCB ADDRESS ( L BLOCK) 


; OUTPUTS: 


UNIT CONTRO 


THE DRIVE UNIT IS RESET, UCB FIELDS ARE INITIALIZED, AND THE 
ROUTINE WAITS FOR ONLINE UNITS TO SPIN UP. ALL REGISTERS 
EXCEPT RO-R3 ARE PRESERVED. 


690 DL_RLOX_ ahh ¢RLO1/RLO2 UNIT INITIALI 
0 BO “MOV #1 QGUCBSV_DL_MAPPING,= : DEFAULT TO ADAPTER MAP 
OOF6 C UCBSW_DL_-FLAGS(R5) ; AND 18 BIT ADDRESSING 


Og : SET CPU DEPENDENT UCB FLAGS FOR DL 
96 CPUDISP <<790.108>,- 
< = 


a a ee a a a ee a a ee a a ee a a a ed a a a a a a a a ed a a 
DW OOO W00909 000909 000000 I EEE EEE REE EEE EEE EEE PEPE PPP EPP PEE EEE 


BDWPIMIMIMNISI OO DO OOO NWT AO BW 0.09.09 GD 0D 0D 0D OD OD Dh ANNAMALAI AAMAS 
o 
oO wWOOOOOOOOO® _~NNw 
we —OOONO UNE w Oo w 
Oe Be Oe Be Se Oe Oe Oe Oe Oe Se Oe Oe Oe Ge Se Se Se Se Se Se Sees 
a am 
5 * 
vum™m 
—> 
2-4 
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® 
“ 
So 
nm 
eo 
SOOQOOCOCOCOCOOOCOCOOOCOSOOCOOSOCOOOOOOOCSCOOSCOGCOOCOOOOOCSOOOOOCOOCOOCOOCOOOOOoOO 


785,10$>, 
608 <780.10$>.- 
609 <750,10$>,- 
610 <7 *10$>.- 
611 Uv1.5$>> 
01 B60 61g 5$: MOVW aiaucésy. OL 22B1T,- ; FOR MICROVAX I 22 BIT 
OOF6 C5 rs ces _DL7FLAGS(R RSS ; ADDRESSING AND NO ADAPTER MAPPING 
64 a5 3C 614 108: MOVZWL UCB sT$( (R5) »R3 >SAVE CURRENT UNIT STATU 
0810 8F AA 615 BICW aves sa ONL INE 'UCBSM_ vALIb, = ;ASSUME OF FLINE/INVALID 

64 AS 1 UCBSW_ STSiRS) Ria 
; 
i t WAIT FOR CONTROLLER (6 SECONDS MAX) IF CHANNEL IS BUSY WITH ANOTHER UNIT 

1 © 
24 DO » : MOVL UCase CRB(RS) ,RO ;O TC RB ADDRESS 
E1 Q BBC #CRBSO_BSY 1000 MASK(ROS.20$ ;1F CLEAR = CHANNEL NOT BUSY 
624 TIMEDWAIT sfeeisie -& SECOND WAIT LOOP 
6 5 INS (ras>,- -1S CONTROLLER READY 
6 INS2 =<BL 5, ‘ sss s1f LSS = YES 

6 DONE, BL= [LABEL TO EXIT WAIT LOOP 
628 BLBC— RO, :TIME EXPIRED = EXIT 


ae 
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FRLIMMOL GAGE RES PROM UCHREHREG ARSE NAVE SRSB SRE 
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188 : 
4 é | 3; GET CURRENT DRIVE STATUS AND RESET DRIVE 
188 é 
06 a6 08 B80 0188 ¢ 20$:  MOVW #RL_DA_M_RST!- -PUT RESET AND GET STATUS IN DAR 
1BF 6634 RL _BA_A_STS!RL_DA_M_MRK AL A(R) :... 
51 D6 O1BF 635 CLRL OR :CCEAR R1 FOR UNIT NUMBER 
51 08 O08 S&AS F 3! é § INSV.  UCBSW_UNIT(RS) ,#8,8,R1 GET UNIT NUMBER 
66 04 3 a9 0107 «6 BISW3 RI,#F-GETSTATUS,RL_CS(R4S : EXECUTE GET STATUS FUNCTION 
0095 39 10B 6 8 BSBwW LW ;WAIT FOR CONTROLLER 
$4 1cE 6 TSTB RL CS(R4) [WAS CONTROLLER READY? 
4 18 01D 640 BGEQ 46-258 t1F GEQ = NO 
DS Be 
1D og t CLASSIFY DRIVE TYPE 
DS eS 
23246C001 8F D0 01D 646 MOVL  #*X2324C001,- 
008C cs 1D8 64 UCBSL_MEDIA_ID(R5) ;SET MEDIA IDENT ‘DL _RLO1” 
06 a6 60080 BF «0OoaB3sCO1DB 648 BITW #RL_MPTM_TYPTRL_MP(R4) 1S DRIVE TYPE = RLO2? 
15 12 O181 64 BNEQ  30$ SIF NEQ = YES 
09 1E3 650 MOVB  $*#DT$_RLO1,- 
61 A5 165 651 cBs8 DEVTYPE (RS) sSET RLO1 DEVICE TYPE 
46 AS 0100 8F 90 1E 63¢ MOVW a § pert CYLINDERS(RS);:SET NUMBER OF RLO1 CYLINDERS 
0080 cS 2800 8F 3c «(OED «665 MOVZWL #10240, UCBSL_MAXBLOCK(R5SS ;SET MAX RLO1 BLOCK NUMBER 
17 DIF 694 RB 40$ 
3 g H x 
6A 11 if 63 25$ BRB 70$ BRANCH TO COMMON EXIT 
OA 90 O1F8 658 30$:  MOVB S*#DT$_RLO2,- 
41 AS 1FA 659 CBSB~DEVTYPE(RS) sSET RLO2 DEVICE TYPE 
46 AS Q 00 8F 80 1F 0 VW 1 yee W_CYLINDERS(RS):SET NUMBER OF RLO2 CYLINDERS 
0080 ¢5 F 3C 0202 661 MOVZWL #20480, UCBSL_MA R55 ;SET MAX RLO2 BLOCK NUMB 
998¢ 3 D6 0209 66 INCL UCBSL_MEDIA_TD(R5) sSET MEDIA IDENT DL RLO2’ 
16 E1 OD 663 40$: BBC #uCB$9_VALIB,R3,60$ ; Branch around wait for drive to spinup 
11 664 ; if the drive did NOT have a VALI 
11. 665 : volume on it before POWER failure. 
11 86? 
1 ee : INITIALIZE UCB FIELDS AND WAIT FOR ONLINE UNITS TO SPIN UP 
11 670° 
4 oe 11 671 45$: BITW  #RL_CS_M_DRDY,RL_CS(R4) ; Is drive ready? 
1 14 676 BNEQ SIF NEQ = Y 
00000009" fi 16 67 JSB G°EXESPURTIMCHK [1S MAX TIME EXCEEDED? 
F2 50 f 1 674 BiBS R0,45$ TIF LBS - NO, STILL MORE TIME NEEDED 
06 11 I 675 sa BRB § [POWER UP TIME EXCEEDED 
64 AS 0800 BF AB } er BISW #UCBSM_VALID,UCBSW_STS(R5) ;SET UCB STATUS VOLUME VALID 
01 €0 7 re 60$ BBS #UCBSV_DL MAPPING - yADAPTER MAPPING? 
1 O0F6 C5 9 0 UCBSW_DL_FLAGS(R55.65$ IF BS YES 
1 24 AS oD D 1 MOVL UCBSL~CRB(RS),R1 [GET CRB ADDRESS 
2 Wal oO 1 6 é MOVL ck SLTAUXSTRUC(R1),R2 MEMORY ALLOC FAILURE DURING CTL INIT? 
ccs 9 Ob RE GE REME tuo ov our vncnsy iLuv Bufttd EUR rOA Bones 
51 oye 1 EF C 685 EXTZV avAsy. VPRLATA S"VPN.R2.R1;GET VIRTUAL PAGE NUMBER OF BUFFER 
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50 y v9 44 MOVL GOnMGSGL SP SPTBASE ,RO BASE ADDRESS OF SPTS 
D 4 MOVL PAE PTE NTS 
S51 52. FFFFREOO BF CB O26 BICL3 #*C<VASa’ ByTE> R2,R1 SF BUFFER’ off se "(BA00-BA08) 
4 ASSUME pres of G 18 
51 0 4 : INSV : COPY BA09-BA21 
2 9 6 MOVL uchsh be BUF _PA(RS) igAvE Buvsical ADDRESS OF BUFFER 
A 692 65$: B1SW Riu ONLINE ,uTBSw_STS(R5) ;SET UCB STATUS VOLUME VALID 
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DRIVER SPECIFIC SUBROUTIN P=19 DRIVER. SREID DLDRIVER.MAR; 1 ) 
* oF «SBTTL ORIVER SPECIFIC SUBROUTINES 
é 4 : OL WAIT = WAIT FOR CONTROLLER READY 
6 9 : INPUTS: 
‘ 9 ; R4 = DEVICE CSR ADDRESS 
4 , j 3 FUNCTIONAL DESCRIPTION: 
¢ 704 : THIS ROUTINE Is CALL D FROM THE DRIVER UNIT INITIALIZATION ROUTINE 
63 705: TO WAIT UN Me THE R uit CONTROLLER IS READY. TO PREVENT HANGING UP 
63 706; AT H HIGH YPL MUM OF 30 USEC ELAPSES BEFORE CONTROL IS 
6 f ! : RETURNED 10’ THE me ALLER. 
63 709° 
6 310 DL_WAIT: WALT T FOR co CONTROLLER READY 
76 50 7D 0263 71 MOVa = RO, = (SP) 
66 re DSBINT DtSaate INTERRUPTS 
5 TIMEWAIT #3, #RL_CS_M_CRDY, AL x54 
1 714 ENBINT TENAB e TwteRRUPTS 
50 B8€ 7D 02964 715 MOVO = (SP) +, RO eSTOR E RO, 
05 0297 716 RSB [RETURN TO UNIT INIT OR STARTIO 
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-SBTTL FDT ROUTINE = TEST TRANSFER BYTE COUNT ALIGNMENT 
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DL_ALIGN = FDOT ROUTINE TO TEST XFER BYTE COUNT 
FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER 

: TO CHECK THE BYTE COUNT PARAMETER SPECIFIED BY THE USER PROCESS 

: FOR AN EVEN NUMBER OF BYTES (WORD BOUNDARY). 

t INPUTS: 

; R3 = IRP ADDRESS (1/0 REQUEST PACKET) 

: Re = PCB ADDRESS (PROCESS CONTROL BLOCK) 

; RS = UCB ADDRESS (UNIT CONTROL BLOCK) 

; R - CCB ADDRESS (CHANNEL CONTROL BLOCK) 

: R - BIT NUMBER OF THE 1/0 FUNCTI 

: RB - ADDRESS OF FDT TABLE ENTRY FOR THIS ROUTINE 

: &(AP) = ADDRESS OF FIRST FUNCTION DEPENDENT Q10 PARAMETER 

: OUTPUTS 

: If THE Q10 BYTE COUNT PARAMETER IS ODD, THE 1/0 OPERATION IS 

: TERMINATED WITH AN ERROR. IF IT IS EVEN, CONTROL IS RETURNED 

: THE FDT DISPATCHER. 

DL_ALIGN: : CHECK BYTE COUNT AT P1(AP) 

BLBS 4(AP),10$ :1F LBS = ODD BYTE COUNT 
RSB SEVEN = RETURN TO CALLER 

10S: MOV ZWL #SS$_IVBUFLEN,RO SET BUFFER ALIGNMENT STATUS 

G*EXESABORTIO- SABORT 1/0 
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; DL_STARTIO = START 1/0 ROUTINE 
FUNCTIONAL DESCRIPTION: 


THIS FORK PROCESS IS ENTERED FROM THE EXECUTIVE AFTER AN I/O REQUEST 
PACKET HAS BEEN DEQUEVED, AND PERFORMS THE FOLLOWING: 
E 


- ACTIVATES THE DISK AFTER SETTING UCB FIELDS, erenine 
UBA AND CONTROLLER RESOURCES, AND SETTING RL11 REGISTERS 


- WAITS FOR AN INTERRUPT 


- REGAINS CONTROL AFTER THE ISR SERVICES THE INTERRUPT, AND 
= RE-ACTIVATES THE DISK IF THE ORIGINAL FUNCTION 
NOT YET COMPLETE, OR 
- COMPLETES THE 1/0 REQUEST BY RELEASING RESOURCES 
SETTING STATUS CODES, AND RETURNING TO THE EXECUTIVE. 


; INPUTS: 
in) - IRP ADDRESS (1/0 REQUEST PACKET) 
RS = UCB ADDRESS (UNIT CONTROL BLOCK) 
IRPSL_MEDIA = PARAMETER LONGWORD (LOGICAL BLOCK NUMBER) 
: OUTPUTS: 
RO - FIRST 1/0 STATUS LONGWORD: STATUS CODE & BYTES XFERED 
R1 - SECOND 1/0 STATUS LONGWORD: O FOR DISKS 


THE 1/0 FUNCTION IS EXECUTED. 
ALL REGISTERS EXCEPT RO-R4 ARE PRESERVED. 


oO 


oo 


DL_STARTIO: START 1/0 OPERATION 


>>>>>>r>r>rrrrrrrrr>r>r>rrrrrrrrrrrrr>r>r 


So 
Su 
aw 
on» 
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m Oo 
o oO 
oo 
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= >>>>rrr>rr>rrrrrrrrrrrrr = 
309 09.08.09 03 0d Cd Cp Gd 0D Cd Od Cd Od OD 0D Gd Od Od OD CD Cd Od GO? GD OD CD OD OD OD OD OD Cd CP Od Cd Cd 09 C9 CD CD CD. CD CTD CD CV CD CO. CD CD CD CD OD OD 
SANS 
53O.09 0909 09 09 09 09 09 0908 INI SIN NNN AAO 
WN 9 ODNOA UNE WN CO OVO US WN "OOOO 
Se Ge Ge Ge Ge Ge Se Se Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Se Ge Se Ge Se Se Ge Se See 


196 : COMPUTE PHYSICAL MEDIA ADDRESS 
798 : LBN = LBN * (SECTORS/BLOCK) 
799 ; LBN/(SECTORS/TRACK) = 0 + SECTOR 
9 : D/(TRACKS/CYLINDER) = CYLINDER ¢ TRACK 
‘ : PREPROCESS UCB FIELDS 
PREPROCESS: : 
8 MOVL ii need 4 Pert 3; Copy given MEDIA address (logical) 
yids MEDIACRS) : to the ucB. 
AE 0 BBS #1RPSO_PHYSIO,- y1f SET = PHYSICAL 1/0 


<o 


| 


2 eee 


208: 


CLR DIAGNOSTIC BUFFER PRESENT 
;1F CLR - NO DIAG BUFFER 


§) 
FDISPATCH :... 
,UCBSW_DEVSTS(RS) ;SET DIAG BUFFER PRESENT 


BISw  #UCBSA_D 


: CENTRAL FUNCTION DISPATCH 


ON DISPATCH 

P ADDRESS 

= PHYSICAL 1/0 FUNCTION 
- V ME SOFTWARE VALID 


UME INVALID STATUS 
OUNT AND EXIT 


FDISPATCH: ; 
MOVL UCBSL_IRP(RS) .R3 
BBS #IRPST_PHYSIO 
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26 2A A 8 IRPSW_STS(R3) ,10 
50 008¢ cs (0 5 0B MULLS #2 veBeL meDTACRS) RO ;SCALE LBN IN RO 
46 A A 028 MOVZBL ucé B_SECTORS(R5S).A2  :GET NUMBER OF SECTORS PER TRACK 
2] b4 5 CLRL OR SCLEAR HIGH PART OF DIVIDEND 
oosc (5 50._-—s«S0 8 EDIV. R2,RO,RO,UCBSL MEDIACRS) ; CALCULATE SECTOR NUMBER AND STORE 
A A eC MOVZBL U BSB_TRACKS(AS) .R [GET NUMBER OF TRACKS PER CYLI 
51 ¢ EDIV  R2,RO;RO,R1 TCALCULATE TRACK AND CYLINDER 
OB ¢ 9 C MOVE RI.UCBSL/MEDIA*1(RS) § 3STORE TRACK NUMBER 
OBE C 0 8 D MOVW  RO-UCBSL“MEDIA*2(R5) | :STORE CYLINDER NUMBER 
00 1¢5 90 02D MOVB UCBSB_ERTMAX(RS),- ;INITIALIZE ERROR RETRY COUNT 
080 ¢ D UCBSB-ERTCNT (RS) te 
00c0 cS = 7E AS OE OE CBSW"BCNT(RS) ,UCBS$W_BCR(R5) ;INIT NEG BYTES LEFT TO XFER 
0006 cS B4 SOO CBSW~DL_DPN(RS) ;CLEAR DATA PATH NO. FOR USE AS- 
a SUBA RESOURCE ALLOCATION FLAG 
00 C5 94 O2E CB$B_DL DPPE (RS) CLEAR DATAPATH BURGE ERROR REGISTER 
009A CS «=20 AS BO COE RPSW-FURC(RS) ,UCBSW_FUNC(RS) ;SAVE FUNCTION CODE 
0 EF O2F IRP$0_FCODE,- ggxtRact 1/0 FUNCTION CODE 
51 20 a3 t IRP$S-FCODE, IRPSW_FUNC(R3).R1 ;... 
0092 ¢ 1 90 OeF 1 B_FEX(RS) :STORE FUNCTION DISPATCH INDEX 
1 0 1 F 416 ERR i SEEK FUNCTION? 
38 a3 OB 0 MOVW  IRPSL_MEDIA(R3),- TSTORE CYLINDER ADDRESS 
OOBE C 0 UCBSW~DC(RS Radin 
0 0 DIAG 
0 BEvsT 
0 G 
| : 


10$ 
MNEGW OU 
U 
CLRB =: UCB$B_D 
MOVW IRPSW"F 
EXTZV -#IRPSO_ 
#IRPSS 
MOVB be yces 
cMPBs«#10$_SE 
BNEQ 
mM 

3 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 
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Y o* 
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10 NDE X 
TO FUNCTION HANDLING ROUTINE 


K 
SE CAL ORANG (unsupported) 


RELEASE PORT (unsupported) 
OFFSET HEADS (unsupported) 
RETURN TO CENTER (unsupported) 
PACK ACKNOWLEDGE 

SEARCH (unsupported) 

WRITE CHECK 

WRITE DATA 


1 

1 

1 

1 

1 

1 

1 

1 

1 

5 BBS . 

5 UCBSW_STS(RSS,10$ 

5 MOVZWL &S »RO 

5 BRW x 

3 108: CLRB_ = UCB$B_DL_DCHEK(R5) 

MOVZBL UCBSB~FER(RS) .R3 

: CASE R3,<- 

5 

5 

6 

6 N 

6 NOP, = 

6 Pp’. 

64 PACKACK,= 

65 NOP 
wR 
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08 E 
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08 64 AS 
50 0254 8F C 
at 
53 $852 C A 
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IfECHECK,- 
6 WRITEDATA,- 
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DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16-SEP-1984 00:17:29 VAX/VMS Macro v04-00 Page 
mired START 1/0 ROUTINE moet ty $b: 15:82 DRIVER. SRCIDLDRIVER.MAR; 1 ° 
6 READDATA,= 3; READ DATA 
§ NOP,- 3; WRITE HEADER (unsupported) 
READHEAD, = + READ HEADER 
? 7 NOP ,=- 3; place holder 
7 NOP,- 3; place holder 
6 87 AVALLABLE- : AVAILABLE 
6 rs >, LIMIT=#CDF _UNLOAD : 
¢ 1 NOP ;NO-OP 
¢ 77 S$ : 3; SEEK 
C 78 ORVCLR: sDRIVE CLEAR (GET STATUS & RESET) 
C 79 DO_FUNCTION: 
EXFUNCL RETRYERR sEXECUTE FUNCTION = RETRY IF FAILURE 
ay 6 : 1 NORMAL sSUCCESSFUL = EXIT WITH NORMAL STATUS 
6 g PACKACK: ;PACK ACKNOWLEDGE (GET STATUS & RESET) 
64 AS 0800 BF AB ? : BISW PUCeSn vat 1D - ;Set software volume valid bit. 
i. we ve Hy BRB DO_FURCTION Then go do hardware function. 
6A 38 UNLOAD: ; UNLOAD 
6A AVAILABLE: ; AVAILABLE 
64 AS 0800 8F AA $A 90 BICW #UCBSM_VALID, - ;Clear software volume valid bit. 
91 UCB$W_STS(RSS jand go complete operation without 
7 of , 3 BRB NORMAL zany hardware interaction. 
8 7 94 WRITECHECK: sWRITE CHECK 
7 95 READHEAD: ;READ HEADER 
4000 8F AR 8 7 4 #1OSM_DATACHECK,= sCLEAR DATA CHECK REQUEST=- 
009A C5 Bae8 4 UCBSW_FUNC(R5) ;TO PREVENT EXTRA WRITE CHECK 
B359 99 WRITEDATA: sWRITE DATA 
79 900 READDATA: sR DATA 
340 2 1 EXFUNCL RETRYERR,F_SEEK sEXECUTE EXPLICIT SEEK = RETRY IF FAIL 
53 0092 C5 9A 2 308 MOVZBL UCBSB_FEX(RS),R3 ;GET FUNCTION DISPATCH INDEX 
3 Bye EXFUNCL RETRYERR sEXECUTE TRANSFER FUNCTION 
9 306 ; 
9 907 ; OPERATON COMPLETION 
9 443 3 
9 90 
9 910 NORMAL: ;SUCCESSFUL OPERATION COMPLETE 
50 9} Ht 9 911 MOVZWL #SS$_NORMAL,RO ;SET NORMAL COMPLETION STATUS 
0057 1 ¢ 4 BR FUNCRT sFUNCTION EXIT 
F 914 RETRYERR: ;RETRIABLE ERROR 
0080 3 97 F 915 DECB UCB$B_ERTCNT(RS) sANY RETRIES LEFT? 
13 ; 16 BEQL FATALERR s1F EQL = NO 
FF7F = , : BRW FOISPATCH sRETRY FUNCTION 
$s 318 FATALERR: ;UNRECOVERABLE ERROR 
50 0254 oF 3¢ 9 920 MOVZWL #SS$_VOLINV,RO sASSUME VOLUME INVALID STATUS 
9 €0 9D 1 BBS # P_V_VC,= s1F SET = VOLUME INVALID 
43 00D4 C5 9 5 UCBSW_OL"MP(RS),FUNCXT :... 
50 025¢ 8F 3X Ag 4 MOVZ2WL #SSS$_WRITLCK,RO sASSUME WRITE LOCK ERROR STATUS 


e Ff 
DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16-SEP-1984 00:17:29 VAX/VMS Macro v04-00 Pa 
ssn START 1/0 Rout INE Set EE LORIVER. SREIOLDRIVER.MAR: 1 ate 
OD €1 O38 5 BBC ;1F CLR = VOLUME NOT WRITE LOCKED 
06 0004 4 AA : geasu. tie “mPtRS), 5$ ‘ 
A €0 O3A BBS #RL_MP Vow thE "SET = WRITE GATE ERROR 
32 00D4 C5 Bd 8 uceSW ou “MP CRS), FUNCXT IF WL & WGE SET = WRITE LOCK ERROR 
50 05¢ 8F 3 B4 ’ 5$: MOVZ2WL #SS$_DATACHECK Rp sASSUME DATA CHECK ERROR STATUS 
c$ C5 B9 TSTB ycase_ DL_DCHEK(R5) SWRITE CHECK IN PROGRESS? 
Pays BD ; BEQL TIF EQL = N 
Te F BBS #RL_CS - TIF SET = NOT WRITE CHECK ERROR 
06 OOCE ¢5 (1 rn ucesu BL: or tes). 10$ Tat 
£0 C3 5 BBS #RL_CS_V=CRC,- SIF SET = WRITE CHECK ERROR 
18 OOCE ¢ C7 3 $ UCBSW_ "tie “CS(RS),FUNCXT 3... 
50 O1F4 BF 36 C 3 ; 10$:  MOVZWL #SS$_PARITY,RO ZASSUME PARITY ERROR STATUS 
E 09 BBS weRi_CS_v_crc,- TIF SET = CRC ERROR 
10 OOCE C De 340 UCBSW_BL“CS(R5),FUNCXT :0R DATAPATH PURGE ERROR 
50 008C BF 3C¢ 0306 $43 20$: MOVZWL #SS$_DRVERR,RO ZASSUME DRIVE ERROR STATUS 
‘ EO 0308 94 BBS RL_CS_V_DE.- SIF SET = DRIVE ERROR 
05 OOCE ¢ Dp gad UCBSW_BL“CS(R5),FUNCXT :... 
50 0054 8F 3¢ 3 946 MOVZWL #SS$_CTRLERR,RO yASSUME CONTROLLER ERROR STATUS 
£6 948 FUNCXT: :FUNCTION EXIT 
50 op 0 ES 94 PUSHL RO i SAVE FINAL REQUEST STATUS 
00000000'GF 16 6 £8 950 JSB G* 1OCS$DIAGBUF ILL «ash AGNOSTIC BUFFER IF PRESENT 
0092 ¢5 OA 71 i: 31 CPB #CDF_WRITECHECK,UCBSB_ FEKCRS) agDRive RELATED FUNCTION? 
0092 CS i} 4 FS $35 CHP #COF AVAILABLE ,UCBSB_ rexinsy SDRIVE RELATED FUNCTION? 
53 58 48 pd O3FC 86955 MOVL. UCBSL_ LRP(RS) , R3 SRETRIEVE ADDRESS OF IRP 
00¢9 CS Al «0400 956 ADDWS UCBS$W~BCR(R5) ; CALCULATE BYTES TRANSFERRED 
02 AE A 4046 95 IRPSW “BENT (R35, 2(SP) 
0006 3 85 408 938 Tstw ycasw= DL_DPN(RS) :ARé UBA RESOURCES ALLOCATED? 
01 €7 408 960 BBC #UCBSV_DL_MAPPING,- ;ADAPTER MAPPING? 
OE O0F6 C5 41 961 UCB$W_BL_FLAGS(R5),10$ C NO 
414 36¢ RELDPR ;RELEASE DATA PAT 
1A 9% RELMPR SRELEASE MAP REGISTERS 
11 04 9 964 BRB 208 : JOIN COMMON 
0008 CS DO 06 965 10$:  MOVL UCBSL_DL_SVAPTE(RS),- ‘RESTORE ORIGINAL SVAPTE 
78 A5 4 6 96 UCBS$L~SVAPTE (RS) : 
4 8 36 208 RELCHAN SRELEASE CHANNEL IF OWNED 
5 D4 04 369 CLRL sR :CLEAR SECOND STATUS LONGWORD 
0 8EDO 04 970 POPL RO TRETRIEVE FINAL REQUEST STATUS 
4 971 REQCOM [COMPLETE REQUEST 


an 


—— 


. 7 

7VMS RL11/RLO1,RL02 DISK DRIVER 16-SEP=1 9 VAX/VMS Macro v04-00 Page 
78 ROUTINE Breen oes Bees. YORIVER. SaeoLoRiveR.mans? °°? 
4 73 ; 

: : FEXL = RL11 HAROWARE FUNCTION EXECUTION 

4 6 $ THIS ROUTINE IS CALLED VIA A BSB WITH A BYTE IMMEDIATELY FOLLOWING THAT 

4 77 ; SPECIFIES THE ADDRESS OF AN ERROR ROUTINE. ALL DATA IS ASSUMED TO HAVE BEEN 
4 2 4 : SET UP IN THE UCB BEFORE THE CALL. THE APPROPRIATE PARAMETERS ARE LOADED 

4 79 ; INTO DEVICE REGISTER AND THE UNCTION IS INITIATED. THE RETURN ADDRESS 

439 9 : IS STORED IN THE UCB AND A WAITFOR INTERRUPT IS EXECUTED. WHEN TH 

r 9 4 3 INTERRUPT OCCURS, CONTROL 1s RETURNED TO THE CALLER. 

4 3 9 § > INPUTS: 

439 +} 

439 5; RS = FUNCTION TABLE DISPATCH INDEX 

; ; 2 § 3 RS = DEVICE UNIT UCB ADDRESS 

439 9 8 : g0csP) = RETURN ADDRESS OF CALLER 

‘ 3 389 ; 4(SP) = RETURN ADDRESS OF CALLER'S CALLER 

439 991: IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A BYTE WHICH CONTAINS 
? , 336 3 A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. 

439 994 : OUTPUTS: 

439 995; 

‘ 3 99 : THERE ARE FOUR EXITS FROM THIS ROUTINE: 

4639 998: 1. SPECIAL CONDITION - THIS EXIT IS TAKEN IF A POWER FAILURE OCCURS 
639 999; OR THE OPERATION TIMES OUT. IT IS A JUMP TO THE APPROPRIATE 

6 4 1990 : ERROR ROUTINE. 
be 9 199¢ : 2. FATAL ERROR - THIS EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE 
439 1 ° : ERROR OCCURS OR IF ANY ERROR occurs AND ERROR RETRY IS EITHER 
439 1004 ; ENMIBI TED OR EXHAUSTED. IT IS A JUMP TO THE FATAL ERROR EXIT 
<39 1006 : ROUTINE. 

439 1 $$ : 3. RETRIABLE ERROR - THIS EXIT IS TAKEN IF A RETRIABLE CONTROLLER 

439 1008 ; noe IV ve ERROR OCCURS AND ERROR RETRY IS NEITHER INHIBITED 

439 1009 ; R EXHAUSTED. IT CONSISTS OF TAKING THE ERROR BRANCH EXIT 

r 3 ! 19 : SpecirieD AT THE CALL SITE. 

4639 1 1g : 4. SUCCESSFUL OPERATION = THIS EXIT IS TAKEN IF NO ERRORS OCCUR 

; 4 : 1 3 DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 

° 4 | \3 ; IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 
? M4 ' 2 ; IN ALL CASES FINAL DEVICE REGISTERS ARE RETURNED VIA THE UCB. 

439 1019 : UCBSW_BCR(RS) = NEGATIVE BYTES REMAINING TO TRANSFER 


an 
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DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16=SEP=1984 00:17:29 VAX/VMS Macro v04-00 Page 24 
bivetcd START 1/0 ROUTIN 'S: -SEP-1 138¢ BF : 3332 YORIVER. SRCJDLDRIVER.MAR:1 (1). 
4 3 1021 FEXL: i EUNCT ION XECUTOR 
439 1 POPL 5 BSL opens) i SAV DRIVER PC VALUE 
ly 1 MOVE yces cBse BA CERIRS? CASE INDEX 
43 4 MOVL ucé ),RO ee YA ADDRESS OF PRIMARY CRB 
47 1 MOVL CRBSL~ rarocuetee IDB(RO).R1 GET ADDRESS OF 108 
48 1 § CMPL 3 1D ER(RT) 'DOES THIS PROCESS OWN CHANNEL? 
4F 1 BNEG § TIF NEQ = 
‘ } 8 HOVL j SL_CSR(R1) ,R4 ?SET ASSIGNED CHANNEL CSR ADDRESS 
4 : 0 10$:  REQPCHAN SREQUEST CHANNEL (RETURNS R4 = CSR ADR) 
45C 1 é 208: CASE  R3,<- sDISPATCH TO PROPER FUNCTION ROUTINE 
45¢ 1 IMMED, = [NO OPERATION 
C 1034 IMMED, = [UNLOAD VOLUME (NOP) 
45€ 1035 POSIT,=- *SEEK CYLINDER 
45€ 1 6 IMMED. = TRECALIBRATE (NOP) 
45¢ 1 DRCLR.= [DRIVE CLEAR (GET STATUS & RESET) 
45 1 : MMED. = SRELEASE DRIVE (NOP) 
45¢ 1 MMED, = [OFFSET HEADS (NOP) 
45€ 1040 IMMED,= [RETURN TO CENTERLINE (NOP) 
45C 1041 RCLR,= [PACK ACKNOWLEDGE 
45C¢ 1 4¢ IMMED, = ; SEARCH (NOP) 
8336 104 > 
O1A3 310474 1044 BRw XFER {TRANSFER FUNCTION 


| 
| 
| 
| 
| 
| 
| 
| 
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DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16-SEP-1984 00:17:29 VAX/VMS Macro v04-00 Page 
mire START 1/0 ROUTINE Set Ee 4 (DRIVER. SRCIDLDRIVER.MAR; 1 . 
1046 ; 
i} : IMMEDIATE FUNCTION EXECUTION 
rh ; FUNCTIONS INCLUDE: 
1051 : NO OPERATION, 
1 ; DRIVE CLEAR, AND 
, 33 PACK ACKNOWLEDGE 
7 1055 ; INPUTS: 
7 1 : : R3 = CASE INDEX 
f 1 : RG = CSR ADDRESS 
, : : RS = UCB ADDRESS 
f 60 t FUNCTIONAL DESRIPTION: 
> 4 6¢ : INTERRUPTS ARE LOCKED OUT, THE APPROPRIATE FUNCTION IS INITIATED WITH 
f $3 ; INTERRUPT ENABLE, AND A WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. 
7 1065 ° 
re 66 DRCLR: ;DRIVE CLEAR 
7 106 BISW #RL_DA_M_STS!- “SET GETSTATUS,RESET,AND MARK IN DAR 
28 68 RL_BA_M_RST!RL_DA_M_MRK.RL_DA(R4) ;... 
1 3 IMMED y IMMEDIATE FUNCTION EXECUTION 
1071 CKPWR [DISABLE INTERRUPTS, CHECK POWER,- 
107 SAND PUT UNIT NUMBER IN R2<9:8> 
107 BISW3 R2,FTABCR3],RL_CS(R4) MERGE UNIT WITH FNTN AND EXECUTE 
498 1074 WFIKPCH RETREG, #2 SWAITFOR INTERRUPT 
4A5 1075 10F ORK [RETURN FROM ISR- 
O4AB 107 [CREATE FORK PROCESS (@JSB BACK TO ISR) 
0371 31 O4AB 107 BRW RETREG : 


04 AG OB AB 
478 
478 
494 
64 FB9E CF435 52 AD 0496 


an 


| DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16=SEP-1984 9 VAX/VMS Macro v04-00 Page 2 
raat START 1/0 ROUTI §-3 sets 7 15:82 DRIVER. SRCIDLDRIV VER.MAR;1 e 
AE 1 5 
A p ; POSITIONING FUNCTION EXECUTION 
‘ j ; FUNCTIONS INCLUDE: 
| A 4 ; SEEK CYLINDER 
4AE 1 : : INPUTS: 
4AE 1087 ; R3 = CASE INDEX 
4AE 1 3 ; RG = DEVICE CSR ADDRESS 
A : RS = UCB ADDRESS 
A 4 : FUNCTIONAL DESRIPTION: 
AE 1 38 : THE CYLINDER DIFFERENCE WORD IS CALCULATED AND D LOADED INTO. THE DISK 
4AE 1094 : ADDRESS REGISTER. INTERRUPTS ARE LOCKED OUT HE SEEK FUNCTION 
4AE 1095 : IS INITIATED WITHOUT INTERRUPT ENABLE. THE CONTROLLER 1S THEN POLLED 
A 36 : FOR READY, AND DEVICE INTERRUPTS ARE ENABLED. 
4AE 1 38 > SINCE THE RLO1/RLO2 DO NOT ISSUE AN INTERRUPT UPON COMPLETION OF A 
£ 1099 : SEEK, OVERLAPPED SEEKS ARE NOT ATTEMPTED, AND ONE OF THE FOLLOWING IS 
AE 1 0: PERFORMED. 
— 11 3 : F ONLY A SEEK FUNCTION IS BEING REQUESTED, A uniny READ HEADER 
4AE 1103: FUNCTION IS ISSUED AND A WAITFOR INTERRUPT 1S, IN TIA TED. 
bAE 1104 ; THE READ HEADER 1 USED TO SIGNAL THE END OF THE S NCE IT 
4AE 1105 : WILL ISSUE AN INTERRUPT SHORTLY (315 USEC AVG) crTER Neue SEEK 1S 
AE u $ ; COMPLETE. IT WILL ALSO SENSE FOR A TIMEOUT DURING THE SEEK 
AE 11 : : F THE SEEK IS AS SOCIATED WITH A DATA TRANSFER REQUEST (RLOT/RLO2 
AE 1109: TRANSEER FUNCTIONS IRE EXPLICIT SEEKS) THE PROGRAM KEEPS 
AE 1110: CHANNEL AND RETURNS TO FDISPATCH TO ISSUE THE TRANSFER REQUEST 
4AE 1111: WHILE THE SEEK IS STILL IN PROGREES. WHEN THE SEEK COMPLETES, THE 
7 1446 3 RL11 CONTROLLER WILL BEGIN THE TRANSFER. 
AE 1114 ° 
AE 1115 POSIT :POSITIONING FUNCTION 
AE i? + OBTAIN CURRENT DISK ADDRESS 
AE 119 : IF THERE HAS NOT BEEN A PREVIOUS TRANSFER DURING THIS REQUEST 
AE 1 : + A READ HEADER IS EXECUTED TO DETERMINE THE CURRENT DISK ADDRESS. 
00D6 (5 85 AE 11 ; " TSTw yeas. DL_DPNCRS) [WAS THERE A PREVIOUS TRANSFER? 
69 Bo 11 BEQL HIF of aL “1 READ HEA 
51 00p2¢S  3F B4 1126 BICWS #*077,UCBSW_DL_DA(RS).R1 RENT CYL 4 SURFACE IN R1 
008s = 3 BA i 5 BRW 608 sCALEULATE DIFFERENCE WORD 
53 08 9A 0480 11 $ 108: MOVZBL #8,R3 :SET READ HEADER RETRY COUNT IN R3 
cB 11 g 20$:  CKPWR [DISABLE INTERRUPTS, CHECK POWER, - 
09 (11 “AND PUT UNIT NUMBER IN R2<9:8> 
00468 8F $2 ag 09 1 : BISW3 R2, +E READHEAD! RL CS_M_ 1E,- PEXECUTE READ HEADER 
4DF 11 ; WEIKPCH 408.82 wait FOR INTERRUPT OR TIMEOUT 
6E9 11 1OF ORK iCREATE FORK PROCESS 
OOCE (5 8000 ef 83 SEF 1136 BiTw ant CS_M_CE,UCBSW_DL_CS(R5) ANY ERR OR $? 
ee F6 1135 BEQL s1F €QL = NO 
j 
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? 
= VAX/VMS RLT1/RLO1,RLOZ DISK DRIVER.  16*SEP=1984 00:17:29 VAX/VMS Macro v04-00 p ? 
START 1/0 ROUTIN Breer 18be Bosteise LONIVER. cae IoLORives.mans? 2% fy, 
i? ff 4, pecs Bis tf veo afeAo weneen RETRY COUNT 
FC foe = READ HEADER RETRY EXHAUSTED - 


I TRA 
MOVW eerie _DA_M_MRK,= ‘LGao REVER seek. DIFFERENCE WORD 
I 


RL_D seee 


@reoa 


CKPWR :DISABLE RRUPTS, CHECK POWER, - 
SAND PUT UNIT NUMB eR IN R2<9 
0066 8F S52 a9 BISw3 R24 SEEK!RL CS_M_IE.- ;EXECUTE WEVERSE at 
gece ' 
wr IKPCH tbs a2 ;WAIT FOR SEEK TO BEGIN (INTERRUPT) 
1OF ORK *CREATE FORK 
CKPWR ‘DISABLE INTERRUPTS, CHECK POWER,- 
“AND PUT UNIT NUMBER IN R2<9:8> 
0048 8F $2 ag B1Sw3 R2.#F (READHEAD!RL_CS_M 1E,- zTRY READ HEADER ON NEW TRACK | 
gece | 
wFIKPCH 408,42 sWAITFOR INTERRUPT OR TIMEOUT 
1OF ORK CREATE FORK PRO 
OOCE CS 8000 af 83 BiTw #RL CS M_CE,UCBSW_DL_CS(R5) ;READ HEADER ERROR? 
3. CY BEQL 50 IF ed. ~ 


PUPPY PULP LULU SV LUSVSULUSVSUSUSVSOSVIUSV SUS USISUSIOS 
VEO ODNO NEW "8 COONAN EW OOOO 


SN NNO AA AAOOUIUE & SUTIN 


FUND BMIMIMMININIAD DOONOS OMS > — DOW 


1 
11 
1 
11 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
1 
11 
1 
1 
1 
1156 40$ [CAN NOT READ CURRENT DISK ADDRESS | 
1157 ; CLRB UCBSB_ERTCNT(RS) ;CLEAR RETRY COUNT 
0283 «31 11 BRw RETREG 
1159 50S: SFOUND CURRENT DISK ADDRESS 
51 00046 (S 3F AB 116 BICW3 #*077,UCBSW_DL_MP(RS),R1 ;PUT CURRENT CYL & SURFACE IN R1 | 
1162 ; 
1163 ; CALCULATE CYLINDER DIFFERENCE WORD 
116 
1165 * 
50 04 1166 60S: CLPL sO ICLEAR RO FOR DESIRED ADDRESS 
0 01 06 oBD ¢ FO 116 INSV  UCBSW_DA+1(R5) ,#6,41,RO ; INSERT DESIRED SURFACE IN RO<6> 
0 09 OBE F 5 1168 INSV UCBSWTDC(RS),#7,49,R0 INSERT DESIRED CYLINDER IN RO<15:7> 
1 9 8} 5 116 CMPY Ri” :1$ A SEEK NEEDED? 
3 0585 1170 BEQL :1F EQL = NO 
5 7F BF «6A (0587 (1171 BICW #*0177,R1 SREMOVE SURFACE BIT 
0 7F BF AA 3 1178 BIC #0177, RO TREMOVE SURFACE BIT 
1 50 ag 1 #117 SUBW SSUBTRACT DESIRED FROM ACTUAL | 
8 1 94 117% BEQL - “ys [IF EQL = ONLY CHANGE SURFACE | 
1€ %6 1175 BCC 70$ SIF CC = ACTUAL >=DESIR 
51 1 9 1176 MNE GW RI. va SACTUAL<DESIRED, MAKE POSITIVE DIFF 
1 AB 0598 117 B1SW SET SIGN FOR MOVE TO CENTER OF DISK | 
51 01 «04 9oeo cs F 396 1178 70S: INSV scésu DA+1(R5),#4,41,R1 INSERT SURFACE BIT 
04 AG 1 1 A AS 1179 BISW3 @#RL_DA_M_MRK,RI,RL_DA(RGS ;SET MARKER AND LOAD DIFFERENCE WORD 
i 
AA 1181 ; 
AA 11 q EXECUTE SEEK 
aA 1 r | 
1185 CKPWR :DISABLE INTERRUPTS, CHECK POWER,- 
c3 (11 $ [AND PUT UNIT NUMBER IN R2<9:8> 
0046 8F 52 ag c 1 B1Sw3 R2,#F /SEEK!RL_CS_M_IE,= TEXECUTE SEEK FUNCTION 
co (11 § WEIKPCH 408,42 sWAIT FOR SEEK TO BEGIN (INTERRUPT) 
D3 1190 1OF ORK [CREATE FORK PROCESS 
0092 (5 93 91 0509 1191 80S: CMPB #10$_SEEK ,UCBSB_FEX(RS) [1S SEEK ASSOCIATED WITH A TRANSFER? 
13 O5DE 1192 BEQL §«6=s-«908 SIF EQL - NO, SEEK ONLY 


° | 
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| DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16-SEP-1984 00:17:29 VAX/VMS Macro v04-00 Page 28 
belts START 1/0 ROUT I §-3 ahs 98:15:82 DRIVER. SRCJDLDRIVER.MAR; 1 ad (1) 
1198 
1 5 : RETURN FOR SEEK ASSOCIATED WITH A TRANSFER REQUEST 
1197 * 
pose C og 11 INCL ycast DPC(RS) ZADJUST TO CORRECT RETURN ADDRESS 
9c 051 4 JMP auCBSC_DPC(RS) SRETURN TO DRIVER FOR TRANSFER 
E ; RETURN FOR SEEK ONLY REQUEST 
8 1 : 
1204 90$:  CKPWR DISABLE INTERRUPTS, CHECK POWER,- | 
1205 “AND PUT UNIT NUMBER IN R2<9:8> | 
0048 8 52 Ad 1 6 B1Sw3 R2 Hf READHEAD!RL_CS_M_IE, = sEXECUTE DUMMY READ HEADER | 
§ 1 8 WFIKPCH RETREG, #2 [WAIT FOR SEEK TO COMPLETE (INTERRUPT) 
101 OF ORK SCREATE FORK PROCESS 
0205 31 0617 1210 BRw RETREG : 
| 
| 
| 
| 
| 
| 
| 
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NE SSEb=1986 OO:12:96 LDRIVER.SRESDLORIVER.maR:1 8% Zp 


TRANSFER FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 


WRITE CHECK 
WRITE DATA | 
READ DATA, AND 
READ HEADER | 
INPUTS: 
R3 - CASE INDEX 
RG = DEVICE CSR ADDRESS 
RS = UCB ADDRESS 


FUNCTIONAL DESCRIPTION: 


A UNIBUS DATAPATH IS REQUESTED FOLLOWED BY THE A 
REGISTERS REQUIRED FOR THE TRANSFER. THE TRANSFER PARAMETERS ARE LOADED 
INTO THE DEVICE REGISTERS, INTERRUPTS ARE LOCKED OUT, THE FUNCTION IS 


PPROPRIATE NUMBER OF MAP | 

INITIATED, AND A WAITFOR INTERRUPT AND KEEP CHANNEL IS EXECUTED. | 
| 

| 


f+Oonoorrr>>>?>>r>r>>>r>?r>r>r>rrr>?>>r>r>r>rrrr>?r>r?r?r?r?rrrrr oO 
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UPON RETURN FROM THE INTERRUPT SERVICE ROUTINE, IF THE TRANSFER JS 
E APPROPRIATE EXIT IS ._1F THE FUNCTION IS NOT COMPLETE 
TRANSFER PARAMETERS ARE UPDATED AND A RETURN TO FDISPATCH IS EXECUTED TO 
RE-ISSUE SEEK AND TRANSFER FUNCTIONS WHILE KEEPING CHANNEL AND UBA | 
RESOURCES. IF A DATA CHECK HAS BEEN REQUESTED, IT IS PERFORMED | 
BEFORE RETURNING TO FDISPATCH. 
| 
XFER: ; TRANSFER FUNCTION EXECUTION 
01 BS #UCBSV DL MAPPING, - [ADAPTER MAPPING? | 
C5 UCBSW_BL_FLAGS(RSS,2$ BRANCH IF ADAPTER MAPPING. 
C3 MOVW UCBSADL“BUF_PA(R5S ,UCBSW DL _SBACRS) GET 1ST WORD OF BUFFER ADDR 
0 00F g MOVZWL UCBSA~DL~BUF~PA+2(R5),RO;GET BITS 16:21 OF BUFFER ADDRESS 
08 A4 0 MOV RO,RL_BAE(R4J SET MEMORY EXTENSION BITS IN BAE 
50. 5 94 ASHL  #4.RO-R [PUT MEMORY EXTENSION BITS IN <5:4> | 
00EB ¢ 0 , MOVE R0,UCB$B_DL_XBA(RS) TOF CSR | 
4 > FIRST TRANSFER OF THIS 1/0 REQUEST = ALLOCATE RESOURCES | 
Py | 
0006 ¢5 9 TSTw yCBSU_DL_DPN(RS) ;RESOURCES ALREADY ALLOCATED? | 
61 D BNEQ $ SIF _NEQ = YES 
99e0 5 F CLRL UCBSA_DL_MOVRTN(RS) TASSUME REA 
3 CMPB «= ss @COF_ORITEDATA,R3 SWRITE DATA | 
: 6 BNEQ = 1$ 71F NEQ NO | | 
"GF MOVAB G*IOCSMOVFRUSER, - [SET MOVE ROUTINE ADDRESS FOR | 
3 C3 : UCBSA_DL_MOVRTN(RS) [1ST PARTIA | 
0008 C5 A 1$: MOVL UCBSL~SVAPTE(RS) ycast oi SVAPTE(RS): SAVE SVAPTE FOR BUFFER COPY 
0006 cS_—s01 657 MNEGW #1 ,UCBSW_DL_DPN(RS) 3SET FIRST XFER FLAG 
42 65( BRB 5$ :JOIN COMMON CO 
65E 3 
i 66 FIRST TRANSFER OF THIS 1/0 REQUEST = ALLOCATE RESOURCES 
00D6 C5 65 1268 28: TSTW  UCBSW_DL_DPN(RS) ;UBA RESOURCES ALREADY ALLOCATED? 
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| DLORIVER = VAX/VMS RL11/RL01,RL02 DISK DRIVER 16-SEP-1984 17:29 VAX/VMS Macro v04-00 Pa 30 
raat START 1/0 R ROUTINE ott 8) 12: 82 DRIVER. SRCIDLDRIVER.MAR; 1 we MD 
3C 6-12:«0662 «1269 co =O s«S$ r1f NEQ = YES 
bbe 1 5 REQDPR :AEQUEST DATAPATH 
b6A 107 REQMPR SREQUEST MAP REGISTERS 
; 107 LOADUBA 3LOAD UNIBUS MAP REGISTERS 
51 26405 00 0676 127 mov ucest gC RB(RS) “GET CRB ADDRESS 
$0 5, op EF S7A ! oe ExTZV avecs0 DATAPATN AVECSS DATAPATH = Ht Mae H ae counce ae - 
0006 ¢S 06550 —s«BOCéS ! 4 MOVW RO, seuteke > DL_DPN( $6 DATA s INDICATE uBA RESOURCES ALLOCATED 
50 7C aS 3¢ 06 1 28 MOVZWL UCBS$W_BOFF (RS) .R ;GET BYTE OFFSET IN PAGE 
. on al F 9 7 INSV CRBs “Tnrbevectu. MAPREG(RI .~ INSERT HIGH 7 BITS OF ADDRESS 
wo ue RB ae BP RRL TRE tote, BE AeSEgt fasta SLL MTSE, MRE enon exrecion gus 
00&B C5 0 85 069A $ MULB A fy a6: uCcBS$B_DL PXBACRSY. 3 POSITION MEMORY EXTENSION BITS TO < 
1285 ; 
: § ; COMMON TRANSFER POINT 
me sts 
1 30 : FOR A READ OPERATION WHEN NO ADAPTER MAPPING IS PRESENT EMPTY THE | 
1291 : INTERNAL PHYSICALLY CONTIGUOUS BUFFER FROM THE PREVIOUS READ TO THE 
é 3 : USER'S BUFFER. | 
020A 30 «06 34 S$: BSBW DL_MOVE_TO_BUFFER ;COPY TO USER BUFFER | 
36 $ PUT BUFFER ADDRESS, WORD COUNT, AND DISK ADDRESS IN DEVICE REGISTERS 
BAS 1298 | 
02 A4 Ooe¢ CS B80 06 1 38 UCBS$W_DL SBA(RS) RL_BACR4) SET BUFFER Ess 
CO CS AE 06A9 1300 MNEGW UCBSW RR RS) ; YTES LEFT TO TRANSFER AND - 
cc ¢ bAD 1301 UCBSW~DL trip RS) SASSUME ONLY ONE TRANSFER NEEDED 
52 464 45 9A 0680 1 3 MOVZBL UCB$B~ =BEt10 nS(RS), R2 GET SECTORS/SURFACE | 
51 C 9A 0684 1 MOVZBL UCBS$W~DAC(RS).R1 [GET DESIRED SECTOR | 
1 a2 0689 1304 Ww )=6ORT UR SCALCULATE SECTORS LEFT ON SURFACE 
5 100 BF AG C 1305 MULW #256-R R2 [CONVERT TO BYTES LEFT | 
5 cc cS) «Bl SO6CT 1 ; MP BSU_DL_PBCR(RS).R2 ARE ADDITIONAL TRANSFERS REQUIRED? 
63 1 C6 1 BLEQU 98 SIF LEQU = NO 
ooce cS 52—iéwB c8 MOV R2,UCBSW_DL_PBCR(RS) | ;SET BYTE COUNT FOR THIS TRANSFER 
CD 1 19 > FOR A WRITE OPERATION WHEN NO ADAPTER MAPPING IS PRESENT 
cD ; FILL INTERNAL PHYSICALLY CONTIGUOUS BUFFER FROM THE USER'S BUFFER. 
02F2 30 c 1 18 ios BSBW DL_MOVE_FROM_BUFFER :COPY FROM USER BUFFER 
50 B C5 9a 0600 1315 MOVZBL UCBS afh- -XBA(R5), RO 7SET MEMORY EXTENSION, BITS 
50 F9S5E CF43 A pS 1 1g BISW  -FTAB [MERGE XBA BITS WITH FUNCTION 
$52 oocc 93 A DB 131 Divw3 #3 .UC Hee W $u DL PBCR(RS) .R2 i CALCULA ANSFER WORD COUNT 
06 Aé AE : 18 MNE GW J ?SET TRANSF ER WORD COUNT 
(SOA £3 1 : MOVZBL UCBSW “DACRS) «R ;PUT DESIRED SECTOR IN R1<5:0> 
cS oF fA 1 INSV — UCB$W =Dastins) #6,81,R1 :INSERT DESIRED SURFACE IN R1<6> 
‘ f Fl 1 ; INSV UCBSWTDC(RS),#7,49,R1 INSERT DESIRED CYLINDER IN R1<15:7> 
0606 51 2B F8 ; MOVW Ri »RL-DACRG) [SET DESIRED DISK ADDRESS 
FC 61325; 
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0 re) VAX/VMS 01,RL02 DISK D IVE g $ 38¢ 8: 5:$; S Macro 00 age 71 


START 1/0 ROUTI “SEP-1 DRIVER. SRCJDLDRIVER.MAR; 1 ) 


ore } $ : EXECUTE THE TRANSFER FUNCTION 
BFC 1 . 
SFC § CKPWR :DISABLE INTERRUPTS, CHECK POWER,- 
2 1 , [AND PUT UNIT NUMBER IN R2<9:8> 
66 50 52 ad 0715 1 B1Sw3 RL gSR4) SEXECUTE FUNCTION 
719 1 j atten Re tere’ SWAITFOR INTERRUPT AND KEEP CHANNEL 
723 1 ZRETURN HERE FROM ISR SAVING REGISTERS 
723 1334 1OF ORK SCREATE FORK PROCESS (RETURN TO ISR) 
729 1335 SRETURN HERE FROM ISR REI ROUTINE 
re ia 
7 3 1 § : PURGE DATAPATH 
1$3 18a0 * 
46S 9 0729 1341 CLRB ucese DL_DPPE (RS) ZCLEAR DATAPATH PURGE ERROR 
‘gt 1 7 p 134 J$B8 SPURGDATAP [PURGE DATAPATH 
04 9 733 134 BLBS £0 $ SIF SET = NO PURGE ERRORS 
O0E4 C , 6 44 INCB RO gOS eens [SET DATAPATH PURGE ERROR 
73A 1346; 
, A 4 ; SAVE UBA REGISTERS FOR UPDATE AND REGDUMP ROUTINES 
73a 1349 * 
01 €1 O73A 1350 208: BBC #UCBSV_DL_MAPPIN yADAPTER MAPPING? 
3 O0F6 c3 73¢) («1351 UCBSW_BL_FLAGS(R 530s IF BC NO 
D8 C 1 p00 0746 1 3 MOV Ry -uCBSL DL_DPR(RSS [SAVE DATAPATH REGISTER 
50 00D0 C 07 EF 0745 135 EXTZV #9,#7, UCB$W_DL_BA(RS) ,RO ZERTRACT LOW BITS OF FINAL MAP REG NO. 
51 CE 0@ EF O074C 1354 EXT2V #4, 48g. UCB SW" DLCS(R5),R1 SEXTRACT HI BITS OF FINAL MAP REG NO. 
0 0 1 £0 0753 1355 INSV yINSERT HIGH BITS OF FINAL MAP REGISTER 
O1er BF «0B «C0758 1 36 CMPW FAS RO [LEGAL MAP REGISTER NUMBER? 
5 18 730 1 3 BGEQ 258 :IF GEQ = YES 
50 OF BF 3¢ 75 1 : MOVZWL RO “RESTRICT MAP REGISTER NUMBER 
00DC C5 240 D0 0764 1359 25S: MmOVvL taste J,UCBSL_DL_FMPR(RS) ;SAVE FINAL MAP REGISTER NUMBER 
OOE D4 076A 1360 CLRL UCBSL_DL_PMPR(RS)~ : CLEAR PREVIOUS MAP REGISTER CONTENTS 
0 07 076 1361 DECL =R LCULATE PREVIOUS MAP REGISTER NUMBER 
OF —€C 0770 1 6¢ CMPV =#VECSV_MAPREG, #VECSS mites, zANY PREVIOUS MAP REGISTER? 
50 344A a or? 63 ale RBSL_INTD+VECSW_MAPREG( ) ef oe 
90€0 CS 6240 p00 0778 1365 MOVL ik )CROJ,UCBSL_DL pMPR RS) AVE PREVIOUS MAP REGISTER 
03 OOCE CS ult 5 br7e 6 308: BBC oR CSV VCE ,UCBSW-DL_ CS(RS 3) ios eit, F CLR = NO RL ERRORS 
03 00€4 ee 9 0787 1368 40$:  BLBC  UCBSB_DL_DPPE(RS).45$ At CLR = NO PURGE ERROR 
0090 31 O78 1 § BRW RETREG [PURGE ERROR 
tar 1371 
, f , : RETURN HEADER INFORMATION FOR READ HEADER FUNCTION 
78F 61374 ° 
0093 cS) «(OE)=Sso91s«O7BF «1375 458: CMPB =: @CDF_LREADHEAD,,UCBSB_CEX(R5) ;READ HEADER FUNCTION? 
F 12 0796 1 6 BNEQ DATACH HECK itt Q = NO 
00¢ CS 0D 0796 137 PUSHL UCB$W_BCR(RS) TSAVE NEG BYTES. REMAINING 
A D O79A 1 28 PUSHL UCBSL “SVAPTE (RS) RAV ADDRESS OF PT 
51 790 137 MOVAB B$W~DL_DB(RS) ,R1 [SET ADDRESS OF Pint RNAL BUFFER 
DO O7A2 1380 MOVL ' Ro” [SET NUMBER OF BYTES TO MOVE 
76 A 8 705 1381 CMP “UCBSW_BCNT(RS) [ROOM FOR FULL HEADER? 
F O7a9 1382 BLSSU 854 TIF LSSU = YES 
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DLORIVER = VAX/VMS RL11/RL01,RLO2 DISK DRIVER 16=SEP=1984 00:17:29 VAX/VMS Macro v04-00 Page 3 
Mirah START 1/0 ROUTINE ae ioet} $b: 13:82 DRIVER. SRCJDLDRIVER.MAR; 1 = if 
7E AS = 3C«(O7AB «1383 MOVZWL UCBSW_BCNT(RS).R SET LENGTH OF PARTIAL HEADER _ 
00c0 C5 7 B AS O7AF 1384 50S: SUBWS UCBSW~BCNT(RS) RS .UCBSW. ates “CALCULATE TRANSFER BYTE COUNT 
GF 16 0786 1385 JSB G* 1OCSMOVTOUSER MOVE HEADER TO USER BUFFER 
Aj BED 7a¢ (1 § POPL UCBSL_SVAPTE(RS) SRESTORE ADDRESS OF PTE 
00c0 cS BED z¢ POPL  UCBSW-BCR(R5) SRESTORE NEG BYTES REMAINING 
7¢c5 (1 3 
75 1 ; PERFORM DATA CHECK, IF REQUESTED 
ae 
75 1 38 DATACHECK: ZDATACHECK AFTER PARTIAL TRANSFER 
Of £1 O7¢5 1394 BBC #10$V_DATACHECK,= TIF CLR = DATA CHECK NOT REQUESTED 
19 099A ¢ 7€7? 1395 UCBSW"FUNC(RS) UPDATE i... 
00c9 ¢ 90 £4 43 ! 36 BBSC #0 UCESB_DL_DCHEK (RS). 71F SET = DATA CHECK ALREADY PERFORMED 
ggc 5 96 0701 1 98 INCB UCB$B_DL_DCHEK(RS) [SET DATA CHECK IN PROGRESS 
A - 705 1 MOVZBL #10$_QRITECHECK,R3 7SET CASE INDEX TO WRITE CHECK 
FESF 31 708 i BRW XFER TBRANCH TO PERFORM WRITE CHECK 
708 14 3 
70B 14 j : UPDATE BUFFER ADDRESS, CURRENT DISK ADDRESS, AND BYTES REMAINING 
708 1604 + FOR NEXT TRANSFER 
FB 1408 
708 1209 UPDATE: JUPDATE TRANSFER PARAMETERS 
01 +€1 0708 1408 BBC #UCBSV_DL MAPPING - SADAPTER MAPPING? 
19 OOF 6 ¢3 700 140 UCBSW_OL_FLAGS(R5SS,10$ :1F BC NO 
Ooce CS sCF BF 0s 8BSCO7E1= «1410 BICB3 #*XCFTUCBSW_DL_CS(R5),- :SAVE MEMORY EXTENSION BITS 
O0EB C 7E7 1411 UCB$B_DL_XBA(RS) a 
9000 C5 B80 O7EA 1618 MOVW UCBSW"DL“BA(RS) ,- [UPDATE SAVED BUFFER ADDRESS 
CC ze 1413 UCBSW~DL~SBA(RSS ate 
5S 96 O7F1 1415 10$:  CLRB  UCBSW_DAC(RS) “UPDATE DESIRED SECTOR TO 2 
51 00D2 cs 90000046 F 6Cl «(OO7FS 1616 ADDL3 #*0100,UCB$W_DL_DA(RS).R1 ; INCREMENT CYLINDER & SURFACE 
S52 51~—(O1 Ff 7FF 1461 EXTZ2V #6,81,R1, SEXTRACT DESIRED DISK SURFACE 
DCS 804 1418 MOVE R2,UCBSW_DA+1(R5) SUPDATE DESIRED DISK SURFACE 
52 51 09 p EF 0809 141 EXTZV #7.8#9,R1-R SEXTRACT DESIRED DISK CYLINDER 
00BE C5 80 O€ 1420 MOVW R2,UCBSW_DC(RS) [UPDATE DESIRED DISK CYLINDER 
d0cc ¢ 138 1421 ADDW UCBSW_OL PBCR(RS) ,~ [UPDATE NEG BYTES REMAINING TO XFER 
00C0 f 17 14 ‘ UCBSW~BCR(RS) ape 
13. OB1A 14 BEQL RETR [IF EQL = TRANSFER COMPLETE 
FAFB 31 iC 16 4 BRW FDISPATCH [MORE BYTES REMAINING = CONTINUE 
1F 1426 ; 
1F 14 $ : GET STATUS AND RESET ERRORS 
1F 4059 
IF 16 0 RETREG: :GET STATUS AND RESET ERRORS 
1F 16 : : FOR A READ OPERATION WHEN NO ADAPTER MAPPING IS PRESENT 
iF 16 3: EMPTY INTERNAL BUFFER INTO USER'S BUFFER FOR LAST READ 
0158 30 O81F 14 5° BSBW = =—-»DL_MOVE_TO_BUFFER sMOVE LAST READ INTO USER'S BUFFER 
é 14 $ SETIPL UCBSB_FIPL(RS) TMAKE SURE AT FORK IPL (TIMEOUT) 
06 a6 03 «BO 14 ; MOVW M_STS!= *PUT GET STATUS IN DAR 
. 0 RL_OA_A_ARK,RL_DA(R4) =: 
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DLORIVER = VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 16-SEP=19 :17:29 YAX/VMS Macro V04- Page 33 
vOe- 000 START 1/0 ROUTINE ety 88 :43;34 YORIVER. SREIDLDRIVER.MAR; 1 ew) 
52 D4 OB2A 1440 CLRL oR :CLEAR R2 FOR UNIT NUMBER 
52 08 08 S4 AS F 144 INSV. UCBSW_UNIT(RS),#8,#8,R2 :GET UNI NUMBER 
04 3 A 1466 BISW3 R2,#F “GETSTATUS,RL_CS(R4S EXECUTE GET STATUS 
FA 3 144 BSBW = OL_WAT “WAIT FOR CONTROLLER 
00D4 cs 06 a4 8B 1464 MOVW RL-MP(R4),UCBSW_DL_MP(RSS -RETRIEVE ERROR REGISTER 
AG 8 F 1445 MOVW @#RC_DA_M_RST!- Put GET STATUS & RESET IN DAR 
43 1446 RL BALA STS'RL_DA_M_MRK,RL_DA(R4)_ ;... 
64 04 52 AD 0843 144 BISW3 R2,#F-GETSTATUS,RC_CS(R4) ~- EXECUTE RESET 
FAIS 30 084 1448 DL_WATT ;WAIT FOR CONTROLLER 
A iis 
“A ia > DETERMINE EXIT = SPECIAL CONDITION, FATAL ERROR, RETRIABLE ERROR, OR SUCCESS 
4A 1453 ° 
0004 ¢S_ 05) S00 sD SCOBGA 145% CMPZV #0,#5,UCBS$W_DL_MP(RS),- ;HEADS, BRUSHES, STATE OK? 
1D 50 1455 #RL_MP_M_BHTRL-MP_M_HO'RL_SLM ;... 
13 5 1o28 BEQL 1 itt EQL = YES, ONLINE 
64 AS 0040 AA 0853 145 BICW  #UCBSM_TIMOUT,UCBSW_STS(R5) ;CLEAR DEVICE TIME OUT 
50 O1AG BF 3¢ 3 1458 BOVZUL #sss MEDOFL RO SET REDIUM OFFLINE STATUS 
64 AS 0060 BF 83 bei 1460 1$: Bllw  #UCBSM_POWER!- “POWER FAIL OR DEVICE TIMEOUT? 
67 1461 UCBSM_TIMOUT,UCBSW_STS(R5) ;... 
5312 44 1466 BNEQ  SPECORD z1F NEQ = YES, SPECIAL CONDITION 
4A 00D4 CS 09 «£0 0869 1464 BBS #RL_MP_V_VC,UCBSW_DL_MP(R5) 208 IF SET = VOLUME INVALID 
05 o0¢g ¢3 OF £0 O86E 1465 BBS #RL-CS-V"CE ucBsw-Dt CS(R5).2$ ;IF SET = RL ERROR 
4¢5 €9 5 1466 BLBC UCBSB_BL~DPPE(RS)-108  ;1F CLR = NO PURGE ERROR 
O'GF 16 O87A 1467 28: JSB G*ERLSDEVICERR ALLOCATE AND FILL ERROR MESSAGE BUFFER 
3 009A C F 0 0 1468 BBS #10$V_INHRETRY,UCBSW_FUNC(RS) 208 IF SET = RETRY INHIBITED 
D OOCE C dD CE 6 1469 BBS #RL_CS_V_NXM,UCBSW_DC_CS(R5) é $ ;1F SET - NONEXISTENT MEMORY 
15 OOCE CS «(OE-CCé#€?N 1470 BBC “CS"V"DE.UCBSW_DL_CS(R5),5$ ;1F CLR - NO DRIVE ERRORS 
06 0004 CS «(0D sCsdE1«0892 «1471 BBC #RL“MP"V"WLUCBSW-DL-MP(R5) 4$ SIF CLR =-_NOT WRITE LOCKED 
18 0004 C5__—OA EO 089 1478 BBS #RL“MP"V—WGE ,UCSS@_DC_MP(R5S,20$ ;IF WL & WGE SET - WL ERROR 
0004 C5 C500 BF 0 B83 «OB9E «1473 4S: BITw #RL-MP~M~UDE!~ SWRITE DATA ERROR, OR 
OBA 1474 RL_AP_A_CHE!- SCURRENT HEAD ERROR, OR 
BAS 1475 RL“MP"M~WGE i= “WRITE GATE ERROR, OR 
OBA 147% Rt MP"M"DSE.UCBSW_DL_MP(RS) ;DRIVE SELECT ERROR? 
12. 12 O8A5 147 BNEQ 208 y1F NEQ = YES 
BA? 1299 
BA? 1480 ; RETRIABLE ERROR EXIT 
nae 
7E 9C DS 98 OBA7 14 é 5$: CVTBL  @UCBSL_DPC(RS) c($h) GET BRANCH DISPLACEMENT 
009 C5 BECO BAC 16 4 ADDL = (SP)+, 0CBSL_DPE (RS) SCALCULATE RETURN ADDRESS = 1 
BB1 «1486 ; 
| gai 14 ; SUCCESSFUL OPERATION EXIT 
BB} «1489 - 
909¢ C5 0G (0881 1490 108: INCL UCBSL DPC (RS) ZADJUST TO CORRECT RETURN ADDRESS 
9c D5 1 +4 1638 JP @UCBSC_DPC(RS) SRETURN TO DRIVER 
BB9 «1495 ; 
| BB «1494 : FATAL ERROR EXIT 
BB9 «+1495 ; 
| BB9 1496 
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11/RL01, »RLO2 DISK DRIVER Ig-seP 1984 00:17:39 AX/VMS Macro V04-00 
“SEP=1984 00:12:24 (CORIVER.SRCIDLDRIVER.MAR; 1 
20$: BRW FATALERR SFATAL ERROR EXIT 
; : SPECIAL CONDITION EXIT (POWER FAILURE OR DEVICE TIMEOUT) 
SPE COND 
BBS #UCBSV_ POWER ,UCBSW_STS(RS) PURFAIL :1F SET - POWER FAILURE 
= DEVICE TIMEOU 
J$B G*ERLSDEVICTMO i VICE TIMEOUT 
BICw  #UCBSM_TIMOUT,UCBSW_ sTsth ) -¢ LEAR TIMEOUT STATUS 
MOVZWL #SS$_TIMEOUT.R iB EVICE TIMEOUT STATUS 
DECB  UCBSB_ERTCNT(RS) Y ERROR RETRIES REMAINING? 
BEGL RESETRER 14 EGL = NO 
BRW FDISPATCH ‘RETURN 
RESETXFR: :RESET TRANSFER BYTE COUNT 
MOVL  UCBSL_IRP(RS) ,R3 ADDRESS OF I/0 PACKET 
MNEGW IRS bent T(R35 ,UCBSW_ acnii } sRESET BYTE COUNT 
BRwW UNCXT XIT 
PWRFAIL: “POWER FAILURE 
BICw #UCBSM POWER, UCBSW_ STS(R5) SCLEAR POWER FAILURE BIT 
TSTw pres BL_DPN(RS) ARE UCB RESOURCES ALLOCATED? 
BEQL 0$ TIF EaL - NO 
BBC #UCBSV_DL_MAPPING,- ZADAPTER MAPPING? 
UCB$W_BL_FLAGS(R5) ,50$ C NO 
RELDPR ? RELEASE DATA 
RELMPR [RELEASE MAP REG ISterS 
50$:  RELCHAN SRELEASE CHANNEL IF OWNED 
MOVL UCBSL_IRP(RS),R3 :GET ADDRESS OF 1/0 PACKET 
MOV IRPSL“SVAPTE(R3),- ;RESTORE TRANSFER PARAMETERS 
UCBS$L~SVAPTE(R5) 
BRW PREPROCESS RETURN TO PREPROCESS UCB FIELDS 
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ATUS REGISTER 


NTERRUPT RETURN ADDRESS 


;RESTORE DRIVER CONTEXT 
ER AT I 


IVE 
;CALL DRIVER A 
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9 DL_UNSOLNT: 3 T T 
FB, 0389 1396 POPR #*NCRO,RI,R2,R3,R4,RS> RESTORE AD-R eam 
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Mirae MOVE TO USER BUFFER Roe Ab g: -SEP=1984 t 88:43 ‘8? DRIVER. SRCIDLDRIVER. MAR; 1 - 
97D 1 ‘ .SBTTL MOVE TO USER BUFFER ROUTINE 
370 eke 
370 16 5 ; DL_MOVE_TO_BUFFER = MOVE TO USER BUFFER 
320 18 5 > FUNCTIONAL DESCRIPTION: 
970 16 § : THIS ROUT INE MOVES DATA BETWEEN THE PHYSICALLY CONTIGUOUS BUFFER AND 
97D 1640 ; THE USER'S BUFFER. 
97D 1641: 
370 1646 : INPUTS: 
370 1844 ; RS = UCB ADDRESS 
370 1646 > OUTPUTS: 
97D 1648 : DATA MOVE BETWEEN THE PHYSICALLY CONTIGUOUS BUFFER AND THE USER'S BUFFER. 
97D 1649 ; REGISTER'S RO,R1, R2 ARE DESTROYED 
970 1650: 
ah i 
97D 1838 DL_MOVE_TO_BUFFER: :BUFFER MOVE ROUTINE 
01 €0 O97D 1654 “pes #UCBSV_DL_MAPPING, = SADABTER MAPPING? 
34 OOF6 C5 97F 1655 UCBSW_BL_FLAGS(R5S,10$ it 8 YES NOTHING TO MOVE 
0093 C5 gC 7} 4H 1938 ae wcOF READDATA,UCBS$B_ CEX(R ); ) READ DATA 5 Spi aa 
00C9 C5 o9 E0 sah 1658 BBS #0 ,UCB$B_DL_DCHEK(RS) ,- ‘DATA CHECK IN PROGRESS? 
2 98F 165 10$ F BS YES NOTHING TO MOVE 
00E0 ¢3 05 990 1660 Ist UCBSA. DL_MOVRTN(RS) EANYTHING TO MOVE? 
50 000 eg 06 996 166¢ MOVL § UCBSL_DL_BUFADR(RS).RO :GET USER BUFFER POINTER 
51 O0€E C5 p 998 166 MOVL  UCBSA"DL“BUF_VA(R5).R1 :GET PHYSICALLY CONTIGUOUS BUFFER ADDRESS 
52. 00cC C5 C O9A0 1664 MOVZWL ita tite DL“PBCR(RS),R2 | :GET NUMBER OF BYTES TO TRANSFER 
E0 p 16 O9A5 1665 JSB aucesk ben Rov Mars [CALL MOVE ROUTINE 
OODC C¢ 0 p00 O9A9 1666 MOVL ucB$t_Bi Pye ppR (RS) ;SAVE INTERNAL BUFFER POINTER 
00000000'GF 9E O9AE 166 MOVAB aaa tte WTOOSE :SET NEXT MOVE ROUTINE TO BE USED 
OO0EO C5 984 1668 UCBSA_DL VROVRINGRS) : 
05 987 1669 10$: RSB RETURN 
00000000'GF  9€ oe 1671 20$:  MOVAB G*IOCSMOVTOUSER,- ;SET NEXT MOVE ROUTINE TO BE USED 
O0EO C5 9BE 1678 UCB$A_DL_MOVRTN(RS) ; 
05 9c] 167 RSB RETURN 
9€2 1674 
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~SBTTL MOVE FROM USER BUFFER ROUTINE 


DL_MOVE_FROM_BUFFER = MOVE FROM USER BUFFER 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE MOVES DATA BETWEEN THE PHYSICALLY CONTIGUOUS BUFFER AND 
THE USER'S BUFFER. 
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: : INPUTS: 
C RS = UCB ADDRESS 
¢ OUTPUTS: 
C2 1 DATA MOVE BETWEEN THE PHYSICALLY CONTIGUOUS BUFFER AND THE USER'S BUFFER. 
¢ REGISTER'S RO,R1, AND R2 ARE DESTROYED 
(2 1 -- 
¢ 1696 
C2 1697 DL_MOVE_FROM_BUFFER: ;BUFFER MOVE ROUTINE 
01 €0 09¢ 1698 “BBS #UCBSV_DL MAPPING = SADAPTER MAPPING? 
of 09 OOF6 C5 C4 169 uCBSW_BL_FLA :1F BS YES NOTHING TO MOVE 
009 ce 91 c8 1 06 CMPB «WCF Wot oELMGs (R25 10 fexidsy’ WRITE DATA OPERATION? 
: iF 09CD 1701 BNEQ $ s1F NEQ NOT A WRITE 
00c9 cS) 00—s—s«EOs«éO9CF 1708 BBS #0 ,UCBSB_DL_DCHEK(RS),- :DATA CHECK IN PROGRESS? 
21 0904 170 10$ t1F BS YES NOTHING TO MOVE 
50 o0ODpc CS DO 0905 1704 MOVL UCBSL _DL_BUFADR(RS), RO :GET USER BUFFER POINTER 
51 OEE C5 b0 09DA 1705 MOVL §UCBSA"DL~BUF VACR5) R1 :GET PHYSICALLY CONTIGUOUS BUFFER ADDRESS 
52 oocc C5) «= -33C—sO9DF 1706 MOVZWL ucBsus DL~PB CRCR Re GET ER OF BYTES TO TRANSFER 
O0E0 p> 16 09E4 170 JSB BSK 0C_MO TS MOVE ROUTINE 
ooOpC ¢ 0 00 O9E8 1708 MOVL Bease BL BUEADRRS) SANE INTERNAL BUFFER POINTER 
00000000'GF  9€ 3eD 1709 MOVAB RQ UCesL FROSE [SET NEXT MOVE ROUTINE TO BE USED 
O0EO C5 9F3 1710 UCBSA_DL TROURTNtAS) : 
05 O9F6 Wit 10$: RSB SRE TURN 
09F7 1543 DL_END: yADDRESS OF LAST LOCATION IN DRIVER 
O9F7 1714 END 
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DLDORIVER = VAX/VMS RL11/RL01 Here 
: ec eble LO1,RLO2 DISK DRIVER 16-SEP-1984 00:17:29 YVAX/VMS Macr - 
ymbo wes et 8:15:52 DRIVER. SAE IBLORL VER. MAR: 1 
++ = 02 DL_INT RG 
$$8n5 . DL ROVE _F ROM BUFFER § R 
$$015P. . DL“MOVE-TO_BOFFER DR 
suich = DL-REGDOMP R 
og “ DL_RLOX_INIT : R 
Sst ou . pu Rt 1 et B 
$.0u . DL“STARTIO R 
SANS : DL“UNSOLNT R 
is Sates i 
MESA CESS eee ¥ DPTSC_LENGTH = § 7 
at peo ity ~ x DPT ; + 5 fe = 4 
* : peoanets x DPTSIRITAB 8 02 
ACPSREADBLK coeeeeees i DPTSREINI % 
raat A = sere ee 
Ath * BREE pe St 8 
BUGS _UNSUPRT CPU eeeeeeee § 83 DTS RL § 305 
CDF AVAILABLE = 00000011 DTS TRL OD = 90000008 
eorepayee = 0000 OYNSC CCR s 9000008 
* = 000 e 
COF “OF FSET = 49949344 das 9s = §000906 
CDF ~PACKACK = 00000008 DYNSC “UCB = 90000010 
COFPACKACK = 00000008 DYNSC-UCB = 0000001 
Cor “RE ADNEAD = B0000 EMBSL_DV_REGSAV = 0000004E 
“RECae a ERLSDEVICERR eeeneeee =X 8603 
CBF RELEASE ae ERLSDEVICTMO eeneneee§ =X 8 05 
CDF IRELEASE = 00 EXESABORTIO eentenee XxX 03 
OE ane ICEN = 0000000 EXESALOPHYCNTG teeneeee =X 03 
CDF SEAR = 90000 EXE$GB_CPUDATA eeeeeree X 03 
- . 900000 EXE$GB_CPUTYPE eeneeeee X 0 
UNLOAD = 9000000 EXESGL_TENUSEC ceceeses X08 
CDF -URITEDATA =o +4444 EXESGL_UBDELAY eeneerer = KX 03 
Red Hd 4 4" EXESIOFORK eeeeeeee§ = = (05 
NM = B0000" ”) EXESLCLOSKVALID eeeeeeee§ =X 805 
CRBSLAUKSTRUC “ 449443 EXESONEPARM eeeeeene x 0 
CRBSTINTD = 000006 EXESPWRTIMCHK eeeeeeee = §=6X $3 
CRBSV-BSY Bon ots EXE SSENSEMODE teeneeee x 
DATACRECK 00000 g EXESTEROPAR ceeceece a 
ryt = BebehnS3 fi 03 EXESZEROPARM aeeneere =X 8 0 
DOBSK, CART = 0000000 FDISPATCH 090081 ey 
poset Ace ° 300 4 FEXL 0000439 R 6 
DE VSM” AVL = 00040006 une . . 
DEVSM-DIR = 0000000 pe ee ee 4 
DEVSA-DIR = 00000008 FUNCXT 6 R 03 
DEVSM-F OD = 00006006 F-DRVCLR = 900000 
DEVSM71DV ; + F_ORVC R s 4 
ha RL = 000000 F _GETSTATUS = 5 4 
DE VER" Onv = 10000200 F _NOP = 
DEVSATRND = O08 90000 ' F _OFFSET = 68 
DEVSA-RND = 10000000 F ~PACKACK = 00 4 
PE oT = 000 0000 F _LREADDATA = 
DLSDOT 10000000 RG F ~READHEAD z 
DLEND DOOOOSE? F RELEASE : 
DL~F UNC TABLE 000005C R FRETCENTER . 


04-00 


>a 


= VAX/VMS RL11/RLO1,RLO2 DISK DRIVER 


MMmmmm Mm MMmMmmmn 
paysysvsyss So SOCCCO 
=< 
aanen @ eeacooce 
CONO<OO & CONWHMNK OOK ONDONDu uUWwooo-o cor 
SSSOMUVSS ¢ NOOL—~SOSS SS<— wh o-SSSSSmS45 S8ss5 SSSSS—2SSSS8 
SOOSOSOSCOOS # MMM FOO: OMoOamm adm SO—-S007000 
SSSSSOSOO # COOSSSOOOSCOOSOSCOOOCOOCOOODOOOOOOOOOOOOOOTS ssss 


SOOOGOOSSSO #¢ GOOSCOCOOSOSSOSOOOSSOSSOOOSOSSOSOSOSOSSOOOOSOSOSOOOSOOSOOOSOOOSOOSOOSoSo 
Soooooooy 4 patatatatatatatatatatatatatatatatatatatatatatatatatatetatetatatatatetatatatatatatatetatatat—) 


w OOONO x—_— 
oo ” MMDOO <> 
> oO —? rr FE > > 
wow @ aaaacdcaa aa e == wero ww Guw w 
oVUAMsvV _ >>>>>>>wo weetwwewxoa £H— TIEMO>- OVO 
o<zor22u a | ll eel ae el ae ae ae VYVO—VVOZO Ea DBvorte33>33 
VwVvEruore n" eee tt tow Oe @ #eeeespeoeee ‘ees #espeepee#eseesé 
wOuw8 Ou 4 wx jooooooowsa.i-<au « (att -t >). >), ee st St ee et et et St St St SP 
#eeeees ft ID Ate O Pe teeevueueegecse ees #eteeeeeeess6 
v>o> > Z222=25 ee -NYNNNNYVNEYSOTe w> €CVNNNVNNNYNYN 4 4 EO0000000000 
Rana at ot Mum £8 ttt tt OMe COWES MOVVVVVVVUVVOOOCORE EE EET z 
2A BAA 040A MMVA SVU4VSReESSSSSSOwWWEEEVr  FPttrtrtreereeeeoeerereeeeeeeeeeeees 
SSSeeeessis ee ee ee Bl oh oh oh oh hah hh ht it ttt ttddgddddddad 
—£= Qaaqaaaaaaaaacaadcadcaacaacaacaacaacaacaacacaacacacaacaacaacaeca 
~" PLVESVESVES VES ESVEFVESVPSVESVESVES ESV OSD PSVPS DEFY 
Oo COOCCOCOOOOOOOOOoOOoOO 


BO WI UID EM ~TMN TF OD + eh oe 4 vt rtent bbe SESS ESS S SSS SESE SY. - 
DOOCOOOCOCOCd ol Seeeeeee eee eevee eee 
PDOOOOOOCO FT OOOOOOOOOoOOoOoS Seeeeeeeeeee eee ee &©O0 
DOCOOCOCOCOOC Seeeteeeeeeee e282 2 &©O0 
DOC COOCOCOOCOOOOOOOOOOOOOoOOOooOS eeeeeeeeeeeeeeee &€00 
POOOOOOOOOOOOOOOODOOOOOOCOOCS eee eeeeeeee eee 84400 
HOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOS eee eeeeeee@eeee 24400 
FAOOOWOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO eee ee eee eee eee esee 
uunnnunnnn HHHKHHHHHHHhHKHHhHnHnHnKnnKnnnKnnnnnnnn “uu 

2. 4 ca aw Da 

wuPr Su sy 2 at we hrtrtertrrt | o o 

Pea vve _~ w a= <u ad Ws ty Qw ive) 
we « ze + ” “<i = w @ ~~ ANNMNeE s z<e 
$5 prt} a as s¥vsce (=) z53 “22 as - s= z2zv~—a 
<wa “440V0 Jevriee ET ww b Sretretretre) ve 8 <« <« yEses 
= 6 = * st te et FES rh fe — ee weer i-OVG 33 aoMuw> 
“aa 200 <ew<ew ve w2z2ze Om ele ore ” 


Resse Rs eerirereriprrrrittier otra Seeeceeereree 
OOM < E5555 88 Far ee ret 3 Pettitt tee 
BEE CCE Tt Pe RRR RRR MRR RRA ROR Liter ad 


ee ee Ne ie Ee a re Ok ed ad Od Od Od nd OS OE OE OE OE OS OE OE OS OS OE OE OE OH Sd OE OE OE OS OS Od OG Od OS OS OD OS OD OS Od OG OG Oh SG SG SG SG OS OS 


DLORIVER 
Symbol table 


CBSB_F IPL 


UCBSK"DL"LEN 
UCBSK-LCC_DISK_LENGTH 


UCBSL~DL~PMPR 
UCBSL DL” SVAPTE 
UCBSL~OP 


UCBSL~ 
UCBSL-MEDIA_ ID 
UCBSL~SVAPTE 


UCBSM- VALID 
UCBS$V~DL 
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U 
UCBSW-UNIT 
UNLOAD 
UPDATE 


VASM_BYTE 
VA$S_VPN 


VASV~- VPN 
VECSE_DATAPATH 
VECSL-INITIAL 
VECSL_UNITINIT 


WRITEDATA 
XFER 


“SEP- 
-SEP- 
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DLORIVER = VAX/VMS RL11/RLO1,RL02 DISK DRIVER 197 3E- 1388 90:12 ‘3? AX/VMS # 
Psect synopsis “-SEP-1984 DRIVER. 
ease ene ces sen acan & 
: Psect synopsis ! 
Fr wwmore een ersoceranna > 
PSECT name Allocation PSECT No. Attributes 
~ ° 000 0 ¢ 8-3 0 ¢ 9.3 NOPIC USR CON ABS LCL ao 9 NOE 
S DO0000FA ¢ 250.) 01 ¢ J.) NOPIC USR CON ABS LCL NOSHR E 
Bee e-pem OSe 906 a8 ( 6.) § ( §°} NOPIC USR CON REL LCL NOSHR' €E 
$$$115_DRIVER 000 F ( 2551.) ( -) NOPIC USR CON REL LCL NOSHR €E 
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! Performance indicators ! 


te mace nc eece soso ee nee w ene a } 


Phase Page faults CPU Time Elapsed Time 
Initialization .05 -55 
Command processing 3 38: 6:9 0:00: 8798 
Pass 64 +98 $30 13:0 3 
pyate table sort 5 : 06:30 3: 9:24:99 
ee table output 5 : :00.2 0:00:01.81 
Psect synopsis output “ 3 . :00.0 
Cross-reference output if 9 : 9.0 
Assembler run totals 115 0:00:28.74 :01:47.6 


york ing set. imit was 2250 pages. 
1488 © bytes ( pages) of virtual memory were used to buffer the intermediate code. 
here were 130 pages of symbol table space allocated to hold 2340 non-local and 91 local symbols. 


1316 source 7 F- were read in Pass 1, produc ong. 


4 object records in Pass 2. 
67 pages of virtual memory were used to detine & 


2 macros. 


gre wo Benmnewer nana nmawanaaanaa } 


! Macro library statistics : 


ionmammmnanes een enone ee oounaai 


Macro Library name 


Macros defined 


~$522 sounds: SYS.OBJJLIB.MLB;1 40 
SYSLIB STARLET. MLB; 2 11 
Ste (all Libraries) 51 


2659 GETS were required to define 51 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DLORIVER/OBJ=OBJ$:DLDRIVER MSRC$:DLDRIVER/UPDATE=(ENHS:DLDRIVER) +EXECMLS/LIB 
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